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Ledaren 

Så är det dags för ytterligare ett num¬ 
mer av VIC-rapport. Vi på redaktio¬ 
nen ber så mycket om ursäkt för den 
försening som skedde vid förra num¬ 
ret. Vår förhoppning är att det inte 
skall behöva ske igen. 

Som en del läsare kanske redan vet, 
har vi flyttat redaktionen från Göte¬ 
borg till Stockholm. Samtidigt med 
flyttningen har vi lagt upp prenumera- 
tionsregistret på ett nytt datorpro¬ 
gram. Detta har inneburit en stor för¬ 
ändring av organisationen, vilket i sin 
tur påverkade utgivningen. 

1 dag är omorganisationen av redak¬ 
tionen och uppdateringen av datare¬ 
gistret klart. Redaktionen ser ljust på 
framtiden med många nya ideer i baga¬ 
get och någon försening ska inte behö¬ 
va ske i framtiden. 

Ett spännande område som behand¬ 
las i detta nummer är tillverkningen av 
chips. Jag var själv över på MOS Tech¬ 
nology Inc i januari och fick lära mig 
hur denna tillverkning går till. Det var 
som att stiga in i framtiden. Männi¬ 
skor var klädda som rymdmän (kli¬ 
niskt rent) och teknologin samt preci¬ 
sionen var otrolig. Efter det besöket 
har jag full förståelse för om datorn 
krånglar vid tillfälle. Ja, jag har nästan 
vänt till att fascineras över att den inte 
krånglar oftare. 

Hannover-mässan har, när detta lä¬ 
ses, redan varit. Spännande reportage 
därifrån kommer att följa i nästa num¬ 
mer. 

Väl mött då och trevlig läsning tills 
dess. 
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Hej igen, äventyrare! 


Hur har det gått för Dig? Fick Du ihop 
någon historia? Det enda Du måste 
tänka på när Du skriver är att inte göra 
det för svårt. Det ska ju gå att lösa 
också. 

Allt i spelet måste ha sin förklaring. 
Oavsett om det rör sig om trolldom el¬ 
ler magiska krafter, så måste det fram¬ 
gå på ett eller annat sätt hur saker och 
ting skall vara eller göras. 

Något som inte hör till det mest upp¬ 
skattade i Adventurespel är långa sif- 
ferkombinationer, som spelaren måste 
komma på för att exempelvis öppna 
något. En sådan kan vara näst intill 
omöjlig att knäcka. Ord och fraser, 
som Du själv hittat på, och som skall 
sägas vid olika stadier i spelet, kan va¬ 
ra ännu svårare att komma på. Enkla¬ 
re, men också roligare blir det om det 
finns en logisk förklaring till siffer- el¬ 
ler bokstavskombinationerna lite här 
och var i spelet. Det bör också framgå i 
spelet när och hur spelaren ska göra 
något speciellt med ett föremål. 

Ett bra tips för allt som är extra kne- 
pigt, är att lägga in en s k hjälpfunk¬ 
tion i spelet som talar om små nyttiga 
saker. Till exempel på svåråtkomliga 
platser eller vid speciella tillfällen. Ris¬ 
ken med ett Äventyrsspel är att man 
”kör fast”, därför är det bra med 
”snygg” vägledningshjälp. 

Men, nu tänkte jag titta på vad Du 
gjort, samt visa ett utomordentligt en¬ 
kelt sätt att ställa upp allting på. På så 
sätt har Du ett lätthanterligt manus när 
Du börjar programmera. 

Vi börjar med det material som skall 
in i datasatser. 

Dit hör: 

— Vägval 

— Rumsbeskrivningar 

— Inventarier 

— Övriga föremål i spelet, exempelvis 
dörrar och fönster, samt en del kodbe¬ 
teckningar som datorn har till hjälp 
för att hålla ordning på allt Du skriver. 

Har Du en oexpanderad VIC 20 
(dvs VIC 20 utan extra minnestillsats) 
ryms det max ett spel (Adventure), 
skrivet på cirka fyra sidor i ett linjerat 
A4-bloek. För ett avancerat 
Adventure-spel på VIC 20 behöver Du 
minst 16 kb. 

Om Du nu har fler än tio (10) rum 


eller saker, så måste Du ha en tilläggs¬ 
rad i programmet som lyder 
10 DIM AS(X), BS(X), CS(X) 

’X’ står för antal rum eller saker. 
Valet av variabelnamn, dvs ’AS, BS, 
CS’ är naturligtvis upp till var och en. 
Men, använd inte datorns egna varia¬ 
belnamn, som t ex TIS, eller TI (Du 
finner dem i manualen). I de här va¬ 
riablerna skall Du senare placera in det 
som skall in i datasatserna. 

För att hålla ordning på alla va¬ 
riabler kan t ex namn som ’R UMS ’ 
och 'SAKS’ med fördel användas. Tro 
nu bara inte att alla rum och saker 
skall ges ett egennamn. Nej, låt mig 
förklara. 

D IM-satsen har till syfte att specifi¬ 
cera en matrisvariabels storlek, samt 
att förbeställa plats åt denna i minnet. 
Det får finnas max 10 indexvariabler 
förutom DIM-satsen i datorns minne. 
Det betyder att alla rum får samma 
namn, men olika nummer. Mer om det 
där längre fram. Nu åter till listorna 
och vägvalsdelen. 

I alla typer av sådana här spel är det 
enklast att se det hela som från ovan 
och därifrån gå i väderstreckens rikt¬ 
ningar; nord, syd, väst och öst. För att 
göra det hela ännu enklare så gör vi 

Skriv dessa listor så här. 

(A) (AS) 

1 (vägvalskod) 

2 (vägvalskod) 

3 (vägvalskod) 
osv. 

(A) = rumsnummer (skall inte skrivas 
in i datasatserna) 

(AS) = datorns rumkontroll 
(BS) = endast vad rummet eller platsen 
består av, t ex T EN STOR SAL’ eller 
’PÅ EN KYRKOGÅRD’. Alla inven¬ 
tarier och saker kommer in andra data¬ 
satser. 

(CS) = Detta kommer upp på skärmen 
under spelets gång, för att inte tala om 
för spelaren vart han kan gå. 

För att spara minnesutrymme ska 
Du inte skriva in ’JAG SER’ före sa¬ 
kerna. De här orden behöver nämligen 
bara skrivas en gång, på utskriftsra- 
den, senare i programmet. 


följande. För att inte behöva skriva he¬ 
la meningen ”Gå nord”, så skriver vi 
bara TV’. 

Samtidigt med vägvalsdelen, tar vi 
också biten för när datorn håller redan 
på var någonstans Du är och vart Du 
tar vägen om Du nu går ’N’. Om allt 
stämmer skall Du hamna i ett annat 
rum, och då måste datorn veta vilket. 
Ta fram förra delen och titta på den 
karta jag ritade där, så ska jag förkla¬ 
ra. 

Titta på rum 5. Där ser Du att Du 
kan gå nord och öst. Om Du nu går 
’N’ i rum 5, så hamnar Du i rum 4, 
osv. Har vi lite tur nu, så kommer vi 
till de här listorna. Så här ser det ut, in¬ 
skrivet i en datasats. 

DATA N4Ö6 

(Har du fler rum än nio, skriver Du 
en nolla före varje siffra här upp till 
nio.) 

Eftersom vi är i rum 5, där detta gäl¬ 
ler, så fortsätter vi att skriva in rums- 
beskrivningen på samma rad. Skilj 
rumsbeskrivningen från det tidigare 
med ett kommatecken (,). 

DATA N4Ö6, RUM 5, NORD OST, 
osv. 

Samt vägvalspresentationen. 


(CS) 

(vägvalspresentation) 

(vägvalspresentation) 

(vägvalspresentation) 


Tips! Om Du vill att det skall vara 
mörkt i ett eller flera rum, tills dess att 
Du antingen tänder lampan eller har en 
viss egenskap som gör att Du ser i mör¬ 
ker, gör så här: Anteckna dessa rum 
först, alltså från 1 och nedåt. Det gör 
både hanteringen av data och pro¬ 
grammeringen betydligt enklare om 
rum med samma ”egenskaper” är 
samlade i grupper. Nummerordningen 
inom gruppen är oviktig, bara Du skri¬ 
ver in rum 1 först. Samma sak gäller 
för listan med saker och inventarier. 
Gruppindela även dessa. T ex en grupp 
för saker som man kan se, men inte ta 
på p g a deras magiska kraft. 


(BS) 

(rumsbeskrivning) 

(rumsbeskrivning) 

(rumsbeskrivning) 
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Nu till sakerna: inventarier, dörrar, 


skatter m m. 

(B) (DS) (PLATS) 

1 En stor kista 1 

2 En öppen kista 0 

3 En låst dörr 2 

4 En öppen dörr 0 

osv. 


(B) = Saknummer (skall inte skrivas in 
i datasatserna) 

(DS) = Den för tillfället synliga be¬ 
skrivningen av saken. Observera att 
det inte finns två kistor eller två dör¬ 
rar, utan innan dörren öppnas är den 
en 'LÅST DÖRR’ och efter att den 
öppnats en 'ÖPPEN DÖRR’. Båda be¬ 
skrivningarna måste finnas med. Sam¬ 
ma sak gäller för alla saker som kan 
ändras i spelet. 

(PLATS) = Den här variabeln talar 
om för datorn i vilket rum Du önskar 
ställa exempelvis den här kistan. 
Observera att sakernas "utgångslä¬ 
gen” (hur de ser ut innan de ändrats av 
spelaren) har här siffran noll (0). Öpp¬ 
nar vi den här kistan, ändrar datorn 
bara (PLATS)-innehåll i rad 2 till 1, 
samt innehållet i rad 1 till 0. Därefter 
står det en 'ÖPPEN KISTA’. Hur da¬ 
torn låter dessa byta innehåll, kommer 
jag till senare. 

Det spelar ingen roll i vilken ordning 
Du skriver inventarierna, bara Du skri¬ 
ver in rätt rumsnummer på dem under 


(PLATS). Flera saker kan ha samma 
nummer under (PLATS). 

Nu skriver Du in allt det här i datorn 
på följande sätt. OBS! Om Du har bå¬ 
de färre rum och saker än 10 så hoppar 
Du över alla DIM-satser. 

lODIMAS(X), BS(X), CS(X) 

20 FOR 1=1 TO X: READ 
AS(I), BSfl), CS(I): NEXT 
X = antal rum 

Därefter skriver Du in datasatserna. 

Observera att de här tre variablerna 
hör till ett och samma rum. Det inne¬ 
bär att om Du avslutar en datarad med 
annat än (CS), så måste Du börja nästa 
dalarad med närmast efterföljande va¬ 
riabel. Att det inte står några radnum¬ 
mer här beror på att Du kan placera 
datsatser var som helst i programmet. 
Jag brukar lägga dem sist i program¬ 
men, så jag föreslår att Du börjar på 
rad 10000. 

DATA N4ÖG, RUM 5, NORD OST, 
N255, RUM 4, NORD SYD, osv. 
Inläsningen av inventarierna ser ut så 
här. 

30 DIM DS (X), PLA TS (X) 

40 FOR 1=1 TO X: READ DSfl), 
PLA TS (1): NEXT 

X= antal saker. 

Därefter är lätt att kolla om Du har 
gjort rätt. Har Du skrivit in inläsnings- 



raderna och datasatserna samt kört 
’R UN’, så kollar Du enligt följande. 

Skriv precis så här, men använd de 
variabelnamn Du skrivit. 

FOR 1= 1 TO X: PRI NT BS(I):NEXT 
och tryck 'return ’. 

På skärmen skall Du nu kunna läsa 
alla rumsbeskrivningar. Om Du inte 
kan det, eller bara några stycken av 
dem i början, så har Du gjort fel. Kolla 
om Du kan ha glömt någon av de tre 
sakerna för varje rum. När Du hittat 
felet — rätta och skriv sedan kontroll¬ 
raden igen, ända tills det bara finns 
rumsbeskrivningar på skärmen. 

Inventarierna behöver också kon¬ 
trolleras. 

FOR I = 1 TO x: PR1NT DS(I): NEXT 

Nu skall bara inventarierna komma 
upp, inga siffror alltså. Om allt stäm¬ 
mer nu, så ligger samtliga uppgifter 
om till exempel rum 1 i AS(1), BS(1), 
CS(1), DS( 1) och PLATSO). 

Jag skrev tidigare om matris och in¬ 
dexvariabler. Du har nu fem stycken 
matrisvariabler, var och en innehåller 
X stycken indexvariabler. Enkelt, eller 
hur? 

B.T. 
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Glosförhör 
på VIC 64 

Från Birger Gran fick vi följande pro¬ 
gram för glosförhör till Commodore 64 

Här ett litet program till CBM 64:an 
som klarar av att lagra och förhöra 
valfritt antal (upp till 4 000) glosor. 
Man kan alltså spara sina glosor på ka- 
settband mellan varje omgång, och 
fortsätta att mata in nya nästa gång. 
På så sätt slipper man besväret att ma¬ 
ta in glosorna varje gång man vill för¬ 
höra sig själv. Ja, man kan kanske spa¬ 
ra en hel termins (eller språkkurs) glo¬ 
sor, och ta fram efteråt för repetition. 
Här en beskrivning av programmet: 
Rad 5: Dimensionering och definition 
av en CR-sträng för datafilen. 
(CR = carriage return = vagnretur.) 

Rad 10—50: Utskrift av meny, och 
nummerval, samt anrop av olika pro¬ 
gramrutiner vid nummerval från me¬ 
nyn. 

Rad 60—120: Inmatning av svenska 
resp. engelska glosor. Efter varje in¬ 
matning glospar utskrift för kontroll¬ 
läsning och möjlighet att göra om in¬ 
matningen av sista glosparet vid ev. 
fel. Inmatningen avslutas med tryck på 
Return när nästa svenska ord efterfrå¬ 
gas. 

Rad 130—148: Listning av alla inmata¬ 
de glas-par (10 i taget) för genomläs¬ 
ning och repetition före förhör. 

Rad 150—250: Förhör svenska/engel¬ 
ska. Vid felsvar l:a gång utskrift av 
första bokstav samt punkter för reste¬ 
rande bokstäver. 2:a gången fel fås 2 
första bokstäverna och resterande an¬ 
tal som punkter. 3:e gången fel skrivs 
hela det rätta ordet (meningen) ut. 

Rad 220: ’F’ håller räkningen på anta¬ 
let fel. 

Rad 260: Subrutin som skriver ut rätt 
antal punkter enl. ovan. 

Rad 300—380: Motsvarande rutiner 
som ovan men i motsatt riktning, dvs 
engelska till svenska. 

Anm. Givetvis kan man ändra 'eng¬ 
elska' till valfritt annat språk. 

Rad 400—430: Avslutning av förhöret, 
med utskrift av antal fel m m. 

Rad 500—595: Rutin för att spara 
resp. hämta inmatade glosor till/från 
kasettband. 

Hälsningar 

Birger Gran 


4 

































































































5 












Användarvänlighet 

Din dator kan vara lätt att använda. Men du kan på flera 
sätt förbättra detta när du gör dina program. 


Din dator kan vara så användarvänlig 
på flera sätt. Den kan t ex som Vic ha 
ett stort och lättarbetat tangentbord 
och ge stora och lättlästa tecken på 
skärmen. Men utöver dessa goda för¬ 
utsättningar har du själv en stor roll att 
göra dina program sådana att datorn 
framstår som vänlig mot användaren. 

Det fanns t ex en gång en 
FORTRAN-kompilator som skrev ut 
SUCCESS! när man lyckades, det kän¬ 
des härligt. Men vänlighet ska inte be¬ 
gränsas till gester, användaren mår bra 
av lite hjälp också. 

Man kan se mer eller mindre akuta 
behov av den omtanken hos program¬ 
meraren inom tre områden: 

In- och utdata hanteringen, dvs meny 
och fråge/svarshantering 
Struktur, läsbarhet och kommentering 
i programmet 

Rimlighetskontroll av indata, utdata 
och vissa interna beräkningar 

När det gäller indata skall du låta 
datorn göra jobbet att översätta van¬ 
ligt språk, och den skall också presen¬ 
tera vilka svar den accepterar. Här 
finns alla varianter av klurigheter i 
bruk, men jag tror man bör leva efter 
valspråket ’too elever is dumb’. Om du 
kräver att få strängarna ’ja’ eller ’nej’ 
och repeterar frågan om du får annat 
skräp är du ganska säker på att den 
som kör programmet vet vad han vill 
ha gjort. Ja, jag vet att man lätt blir 
otålig på en dum dator, man vill skriva 
’j’ eller ’n’ eller helst bara nicka eller 
skaka på huvudet. Jag tro ändå att 
konversationen mår bra av fasta reg¬ 
ler. Men vad är det man ska svara på? 
Det är vänligt och omtänksamt att ha 
definierat ofarliga siffervärden i för¬ 
väg i programmet, skriva ut dem och 
fråga om de passar bra. Om inte, går 
man till en inputrutin där tillåtet tal¬ 


område står i frågetexten och en test 
görs på inmatat värde. 

Ovänligt? Ja, om du vill kunna lita 
på datorn så får du låta den vara lite 
misstrogen mot dig själv. 

Du har väl hört om GIGI-principen 
som gäller för all databehandling: 
'GARBAGE IN = GARBAGE OUT’ 
Erfaret folk brukar t o m säga ’GO- 
SPELOUT’. 

(garbage = skräp, gospel = tro, evange¬ 
lium) 

Tro inte nu att det är stenhårt omöj¬ 
ligt att vara lite smidig på den här 
punkten. 1 system som börjar närma 
sig vad man kallar Artificiell Intelli¬ 
gens kan användaren ange vilken nivå 
av kompetens han anser sig ha och få 
tillbaka sin självkänsla genom att han 
får lov att använda egna förkortningar 
och att programmen inte ställer så 
mycket frågor. 

Att han dessutom är övervakad och 
hans prestationer i antal systemkvadd- 
försök etc. egentligen styr kompe- 
tensklassningen behöver han ju inte ve¬ 
ta. 

Åter till vad du bör tänka på när du 
programmerar. 

Efter input av data kan det hända 
att resultatet dröjer. Då bör man av ett 
modernt begåvat program få kvitten¬ 
sen ’vänta lite’ eller ’ta en paus medan 
jag räknar’. Det är mycket trevligare 
än att bli sittande framför en tom 
skärm och undra vad som hänt. Om du 
gör ett spel så är presentationen givet¬ 
vis en del av spelets ide och man ska in¬ 
te diskuter den, men en trevlig vinkel 
på ett spel är att det tar in namnet på 
den som spelar och kommer ihåg hans 
resultat till ett protokoll. 

I mera traditionella databehand- 
lingsuppgifter är det viktigt att den 
som ska ta hand om resultatet får det i 



den form han eller hon behöver och att 
alla förutsättningar och sidodata också 
redovisas. 

När du som användare av t ex ett 
Basic-program finner att du skulle vil¬ 
ja ändra lite på det så kommer du i 
kontakt med den inre användarvänlig¬ 
heten. Det är bara om programmet är 
uppdelat i lättförståeliga bitar, och har 
förklaringar till variabelnamnen som 
du har en god chans att lyckas rota i ett 
program som någon annan gjort från 
början. Lägg därför själv ned omtanke 
på detta och tänk särskilt på två saker: 

1) Skilj mellan väsentliga, permanenta 
variabelnamn och s k slaskvariabler 
som du använder i oberoende små be¬ 
räkningar av mellanresultat. 

2) Lämna aldrig kvar kommentarer 
från en gammal programversion utan 
att kontrollera att de fortfarande är 
meningsfulla och riktiga. Det är så 
frestande att tro på kommentarerna 
men datorn struntar som bekant i dem. 
Vi kanske får Al i framtiden som gör 
självkommenterande program, men än 
så länge är den bästa vägen att välja 
variabelnamn så förklarande som möj¬ 
ligt och skriva kommentarer inte om 
vad man gör utan om varför! 

Rimlighetskontroll slutligen har vi 
redan nämnt i input-sammanhang. 
Basic-tolken t ex är ju barsk men vän¬ 
lig som stoppar felskrivna komman¬ 
don, och programmet kan bli vänliga¬ 
re = säkrare om du går igenom dina va¬ 
riabler, ser vilka talvärden de kan va¬ 
riera mellan och lägger in test som slår 
larm för orimliga värden. Och, väl värt 
att observera, det är ofta i sådana 
handgripliga, formella studier av pro¬ 
grammen som logiska galenskaper 
uppdagas; gör det tidigt och bli en vän¬ 
lig användare! 
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Läst sen sist... 

Den maskin det händer mest med just nu är 64-an, och det ser man 
om inte annat när det gäller böcker. På Studentlitteratur har man 
översatt William Turner’s LÄR DIG ANVÄNDA VIC-64, som för 
övrigt är en i en lång rad LÄR DIG-böcker (i utgivningsplanen 
finns också en för PET med). 


Författaren börjar helt och hållet från 
början, och klarar av det mesta, inklu¬ 
sive ljud och animering på 100 sidor. 
Men Geije Johansson, som står för 
den svenska översättningen, kan knap¬ 
past ha gjort mycket annat än översatt, 
för det är väl många fel i texten. Garafik 
med låg upplösning kan knappast på¬ 
verka skärpan i bilden. Och vad hän¬ 
der om man sätter ett GOTO i en data¬ 
sats? I CP/M och MSDOS stoppar 
CTRL/C en programkörning, men 
mig veterligt lämnar detta kommando 
64-an helt oberörd. 

Bland alla irriterade småfel finns det 
också rena korrekturfel. Vad är 
MUÅÅER? Och vad menas med IN- 
AMTADE? Det här är inte likt Stu¬ 
dentlitteratur. De som köper böcker av 
den här typen är ovana vid datorer, 
och de har helt enkelt inte kunskapen 
som behövs för att veta vad som är rätt 
och vad som är fel. Bokköparna måste 
ha rätt att kräva exta noggrann fakta¬ 
granskning och korrekturläsning när 


det gäller databöcker (säger han i glas¬ 
huset). Och kommandot RUN an¬ 
vänds definitivt inte för att ladda ett 
program från kassett. Men samtidigt 
saknas snabbladdningskommandot 
SH1FT + RUN/STOP. 

Bildmaterialet är utmärkt, även om 
jag personligen ifrågasätter värdet av 
en 64 med en floppy bredvid och en 
sladd i bakgrunden. Bildtexten lyder 
”Diskettenhet ansluten till VIC-64”. 
Jag är också tveksam till bilderna som 
visar meddelanden på bildskärmen. 
Enligt dem, har 64-an 22 teckens 
bildskärm med 22 rader. Ett ganska 
onödigt sätt att förvirra läsaren, som 
definitivt inte kan känna igen sig. 

Förhoppningsvis kommer all dessa 
småfel att rättas till i nästa upplaga, 
och då har det blivit en alldeles ut¬ 
märkt liten bok för nybörjaren. 

För den mer försigkomne 

Liber har också givit sig in på 
databoks-marknaden. AVANCERAD 



PROGRAMMERING på V1C 20 
OCH V1C 64 heter en bok av Arne 
Kullbjer och Christer Ohlman. Den är 
mycket ambitiöst upplagd, även om 
jag tillåter mig ha en egen definition av 
ordet 'avancerad’. Och enligt den defi¬ 
nitionen finns det ingenting avancerat i 
den här boken. Men för den som kla¬ 
rat av alla nybörjarböcker och vill läsa 
mer, är det här ett förträffligt alterna¬ 
tiv. 

Vad som sagts ovan om korrektur¬ 
läsning gäller även för AVANCERAD 
PROGRAMMERING. Varför skall 
det vara så omöjligt att producera en 
databok med alla programlistor helt 
korrekta? Är det sådant sug i markna¬ 
den att konsumenterna sväljer vad som 
helst? Med den här boken är det kans¬ 
ke inte så farligt, eftersom läsaren en¬ 
ligt titeln bör vara betydligt mer än ny¬ 
börjare. 

Boken är hur som helst rejält upplagd, 
med massor av exempel och övnings¬ 
uppgifter (samt facit). Grafiskt har 
man också arbetat ordentligt med bo¬ 
ken: så är till exempel alla program i 
fetstil med större tecken än den övriga 
texten. Detta uppskattas mycket av en 
som är mer van vid förminskade pro¬ 
gramlistor från matrisskrivare med då¬ 
ligt färgband. Köp den här boken, men 
tro inte att du blir proffs bara för att 
du läst den. Men det är klart, en bit på 
väg kommer du alltid. 

J. Stiernborg 


Append — Merge 

Stefan Holmqvist, 13 år, skrev till oss med ett manus, som vi publicerar: 


Append—Merge 

BASIC-kommandot "Append” eller 
"Merge” används till att lägga till ett 
program till ett i minnet redan befint¬ 
ligt program utan att man behöver 
skriva om det. Men det fordras att alla 
radnummer i det andra programmet är 
högre än i det första. Detta komman¬ 
do, som inte finns i ViC-20 kan lätt sti¬ 
muleras med BASIC. Det kan genom¬ 
föras med följande kommando i di¬ 
rektmod enligt följande: 

Ladda in det första programmet. 

Anteckna följande värden vid kom¬ 
mando PR1NT PEEK(43);PEEK(44). 
Dessa minnespositioner inneåller start¬ 
adress för BASIC-programmet. 

A = PEEK(45) + PEEK(46)*256- 


2:PR1NT A 

Minskningen med 2 utförs för att de 
sista stopptecknen i BASIC-strängen 
inte skall komma med vid samman¬ 
slagningen. De två adresspositionerna i 
minnet som pekar på var BASIC- 
programmet ska laddas, ändras nu fö¬ 
re laddningen av det andra program¬ 
met med kommandot: 

POKE 43,A-INT(A/256)*256:POKE 
44,INT(A/256) 

Nästa program skall laddas in med 
kommandot LOAD på vanligt sätt 
med eller utan programnamn. 

Kommandorutinen LOAD använder 
ovanstående pekare och sköter ladd¬ 
ningen automatiskt med start vid 
nämnda adress. 


Då programladdningen är klar, har 
det andra programmet laddats in di¬ 
rekt efter det första utan avbrott. Men 
saken är inte helt klar ännu. 

Innan programmet kan köras måste 
pekarna som anger startadressen för 
BASIC-programmet återställas. Detta 
sker genom att de tidigare antecknade 
värdena som pekare 43 och 44 innehöll, 
laddas in på nytt med t ex POKE 
43,LPOKE 44,16. 

Programmet kan nu editeras, köras 
och sparas som ett enhetligt program, 
ja man kan behandla det som ett pro¬ 
gram, som skall utökas och lägga till 
ytterligare program på program på det 
sätt som beskrivits. 

Stefan Holmqvist 
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TIPS: Montera din dator 


Upp och nermonteringen av anläggningen tar en del tid. 
Dessutom så sliter det på kontakterna. För att göra det 
lätt för oss så har vi monterat anläggningen på en spånski- 
va. Nu är det bara att ställa allt i ett hörn när datorn inte 
används. 


Material du behöver 

Om du skall montera upp din utrust¬ 
ning så behöver du följande: 

1 vitlackerad spånskiva i lämpligt for¬ 
mat. 

2 meter plastat stålband. 

Klämmer för montering av kuloled- 
ning. 

Stålband och klämmer finns i elaffä- 
rer. 

Plåtskruv, och brickor. 

3 vinkeljärn. 

1 handtag till kökslådor. 1 Banankon¬ 
takt. 1 slangklämma. 

1 polskruv som passar till banankon¬ 
takter. Elledning. 

4 filttassar som passar till stolsben. 

Sätt igång och bygg 
Montera vilkeljärn på handtaget. 
Skruva fast vinkeljärnen i framkanten 
på spånskivan. Om du använder 
plåtskruv så fäster det bra i spånski¬ 
van. Nu kan du bära skivan bekvämt. 
Lägg bandstationen och datorn på ski¬ 
van. Tänk på att anslutningen för el 
och joystick kräver utrymme på höger¬ 
sidan. 

Bocka till bandet så det passar da¬ 
torn. Bandet går lätt att klippa av med 
en avbitartång, då det är stansade hål i 
stålbandet. Bocka bandet så det spän¬ 
ner lagom mot datorn. Använd brickor 
så inte skruvarna åker genom bandet. 
Var noga med monteringen av bandet 
så det inte hindrar Commodoretangen- 
ten, eller manövreringen av räknever¬ 
kets nollställare. Om du har extramin- 
ne, spelartridge, eller utrustning till an- 
vändarporten, så plugga in det. Nu ser 
du var du kan placera transformator 
och antennfilter (VIC-20). Elledningen 
till datorn virar du runt transforma¬ 
torn innan du sätter fast den med stål¬ 
band. Tänk på att du lätt skall kunna 
nå anslutningen för TV på antennfilt¬ 
ret när du sätter fast kabeln. Kabeln 
till bandstationen rullar du ihop i en 
ring och sätter fast den. För att inte 


kablarna skall haka i någonstans när 
du bär utrustningen, så sätter du fast 
dessa med klämmer. 

Med denna kompakta anläggning är 
det risk att datorn stör bandaren. Där¬ 
för bör du jorda bandstationens kabel. 

Skruva fast det tredje vinkeljärnet. 
Sätt fast bandarens skärmkabel med 
polskruven. Drag en kabel från ett vat¬ 
tenburet element, eller från ett vatten- 
ledningsrör. Lämplig kabel är RK 0.75 
mm2. 

Använd en slangklämma när du mon¬ 
terar kabeln i elementet, så det blir bra 
kontakt. 1 den andra änden monterar 
du en banankontakt. Till dig som bara 
har element hemma vill vi ge följande 
råd. Försök aldrig att jorda något i ett 
elektriskt föremål, såsom spis, kyl¬ 


skåp, eller element. Om det blir ett el¬ 
fel så kommer det att gå en strömstöt 
in i din dator. Denna tusendels sekund 
är tillräcklig för att VIC-chipset skall 
gå sönder. 

Om någon plåtskruv har gått sönder 
genom spånskivan, så måste du klippa 
av den lite. Annars är det risk att du ri¬ 
ver dig. 

När allt är färdigt så limmar du fast 
filttassarna. Nu är det ingen risk att 
spånskivan repar bordet. 

Allt detta kostar cirka 150:— kro¬ 
nor. Det kan verka mycket. Men ge¬ 
nom att minskar slitaget på datorn och 
gör att det är lättare att ta fram datorn 
så är det en bra investering. 

Skäftingebackens datorörnar/ 
Alf Olsson 
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RTTY program för VIC-20 med 
expanderat minne 


RTTY (Radio TeleType) har existerat 
inom amatörradiovärlden i många år, 
men endast med mekaniska maskiner. 
I och med datorns insteg i vardagen så 
har en ny möjlighet för RTTY instres- 
serade öppnat sig. Här presenteras ett 
RTTY program för VIC-20 med minst 
8K minnesexpansion. 

VIC-datorerna är mycket lämpade 
för datakommunikation eftersom de 
har ett förberett RS 232 snitt. Där stäl¬ 
ler man i två adresser BAUD hastighe¬ 
ten, antal bitar som varje tecken har, 
antal stopp bitar etc. 

Vid datakommunikation sänds eller 
mottages data som en följd av pulser 
(+ 5V och jord). En byte sänds i åtta 
bitar samt start- och stoppbitar. Detta 
beskrivs ganska bra i VIC REVEA- 
LED sid 204—215. I mitt program, 
skrivet för VIC-20, behövs en 
minnesexpansion av minst 8 K. Natur¬ 
ligtvis går programmet att banta ner så 
att det passar en oexpanderad VIC. 
Det är också relativt enkelt att skriva 
om det för VIC-64. 

Jag har i programmet gett möjlighet 
att sända och ta emot i både ASCII- 
och BAUDO kod som nog är den van¬ 
ligaste sändningstypen över radio. 

I BAUDO koden representeras varje 
tecken av 5 bitar som hämtas ur en ta¬ 
bell (se rad 10 000—10 100), och för 
att täcka in alla bokstäver och siffror 
används ett bokstav- och sifferskift. 
Detta sköts automatiskt i programmet. 
ASCII representationen är densamma 
som i datorn och detta medför lite en¬ 


klare hantering av mottagning och 
sändning för varje tecken. 

När man startar programmet får 
man välja mellan ASCII eller BAUDO 
samt möjligheten att skriva in dagens 
datum och rätt tid. Som sista delen i 
uppstarten får man ange den hastighet 
som datat skall överföras. Hastigheten 
ställs på raderna 280—314. 

Under programmets gång finns det 
en del funktioner som kontrollerar 
sändning och mottagning. 

Under mottagning: 

PF2 Tillbaka till start menyn 
PF3 Övergång till sändning 

Under sändning: 

PF1 Övergång till mottagning 

PF2 Bild meny 

PF4 Datum och tid sänds 

PF5 DE SM0NAM SM0NAM 

SM0NAM sänds 

PF6 RYRYRYRYRYRYRYRYRY- 

RYRY sänds 

PF7 PSE KKK sänds 

PF8 CQ CQ CQ CQ CQ CQ CQ CQ 

sänds 

Inmatning av QTC (personligt medde¬ 
lande) 

Inmatning av motstationens signal 
hme WRZ DE SM0NAM sänds (el¬ 
ler motstation) 

Vid sändning läggs en signal ut på 
porten (PB7) som vid inkoppling kan 
dra PTT:n. 

I programkoden ligger nu mina egna 
texter och anropssignal som du själv 
kan byta ut. T.ex på rad 140 i varia¬ 


beln M3S ligger din egen anropssignal. 
Även i de olika sändningsbilderna går 
egen text att lägga in. Det system som 
texterna läses in efter kan du själv se i 
raderna 2140—2270. Programmet går 
att modifiera till var och ens egen per¬ 
sonliga stil. 

Inkopplingen till VIC från ett mo¬ 
dem sker via user port enligt följande: 

— Ut från dator in på AFSK stift M 
(CB2) 

— In till dator från demodulator stift 
B och C (CB1 och PBO) som kopplas 
ihop. 

— Gemensam jord på stift A (GND) 

— PTT:n kopplas på stift L (PB7) 
Tänk på att vid RESET av datorn el¬ 
ler vid körning av annat program så 
ligger + 5V ut på stift L (PB7). Sedan 
kan det behövas en invertering av sig¬ 
nalerna på stift B, C eller M beroende 
på vilken Demodulator/AFSK man 
har. 

PIN TYPE RS232 FUNCTION 


A 

GND 

GND 

Protective ground 

B 

CG1 

Sin 

Received data 

C 

PBO 

Sin 

Connected to Sin 

D 

PB1 

RTS 

Request To Send 

E 

PB2 

DTR 

Data Terminal Ready 

F 

PB3 

R1 

Ring Indicator 

H 

PB4 

DCD 

Received line signal 

J 

PB5 



K 

PB6 

CTS 

Clear To Send 

L 

PB7 

DRS Data Set Ready 

M 

CB2 

Sout Transmitted Data 

N 

GND 

GND 

Signal ground 


Inkopplingsbeskrivning på User Port 


5 REM ♦RADIO TELETVPE 

6 REM ♦AV DAG WIMDARP 

7 REM 

10 PRI NT "13" CLOSE 2 

11 PGKE 36879,25'POKE 36378,15:P0KE 37138,134 P0KE 37136,127 

20 PRINTMBWk aftflli IOTELETVP EBIM MW" 

28 PRINT"MMMMB=BFIUrt A=ASCIITTTT 
30 PRINT" nkMOBE ■BHil"; ’ IMPUT M2$ 

32 PRI NT"*] .T 

40 IF< M2$<>" A" >AND<M2$<>"B"> THEN 10 

110 IFM2$="B"THEN 0PEH2,2,3,CHR$<32+64)+CHR$<16) : GOTO 130 
120 IFM2$="A"THEN 0PEN2,2,3,CHRf<0>+CHR$<16) GOTO 130 
130 Dl*="840000" M1$="QRZ " Alf="N" 

140 M3$="SM0HAM" REM 

141 T2=23 REM 
170 REM 


♦EGEN ANROPSIGNAL 
♦ANTAL BILDTEXT RADER 









171 

172 

173 

174 
100 
190 
200 
240 
242 
244 
250 
252 
280 
290 
300 
310 
312 
314 
320 
400 
402 
410 
420 
430 
440 
450 
460 
470 
4S0 
490 
500 
510 
530 
540 
550 
560 

570 

571 
500 
600 
610 
611 
612 

615 

616 
620 
630 
640 
650 
£60 

670 

671 

672 

674 

675 
680 
690 
720 
700 
350 

RN 


DIMASK<62 >,ACK <62),T1t<100 >,T2tC20) 

FOR I = 1T062■READ ASK<I> NEXT 
FORI=1T062 READ ACK(I)■NEXT 
FORI=1T0T2'READ Tlt<I) : NEXT 

F'RINT"kDATE ■ "Dlfliiiiiiil" : INPUT Dit 

PRINT"»kTIME ■ "Tit"!■■■ ■■■■! ; : IHPUT TIt 

PRINT"WS«S45 50Si 75 100 110 300TTTT' 

PR I NT" ISkHAST IGHET ■ 45IMM" ; 

INPUT SP 

PRI NT"» TT' 

PRINT".HkAUTOIGNOR : ■ "Alt" 1111"INPUT A11 A11 =LEFTt<Alt, 1 

IF < A1 tO " J " ) AND < AltO " N") THEN250 

IFSP=45THEN L=60 : H=95 : GOTO 400 

IFSP=50THEN L=143 : H=S6 : GOTO 400 

IFSP=75THEN L=1S7 : H=56'GOTO 400 

IFSP=100THEH L=74■H=43 : GOTO 400 

IFSF-11ÖTHEN L=9©'H=39'GOTO 400 

IFSF'=150THEN L=220 : H=28 : GOTO 400 

GOTO 200 

P0KE665.' L : P0KE666'.' H 
IFPEEK<659)=0 THEN GOTO 5000 
FL=© 

F'R I NT" 3kRX I" SP " kBAUDl.HIIIIIIIIIII" 

P0KE667,PEEK < 663) 

GET#2,BAt 
IF £At="" THEN 530 


BAK=ASC<BAt) 

IFBAK=27 THEN FL=1 GOTO 530 
IFEAX=31THENFL =0:GOTO 530 
IFFL=1THENPRK=ASK < BAK+31) GOTO 510 
PRX=ASX<BAX) 

PRINTCHRt(PRK); 

GETAt ' IFAt= " SI" THENGOTO 10 
IF At="B"THEN GOTO 420 
IFA#=" THENP0KE659,224■GOTO 580 
I FAt= " II" THENFL=00 


GOTO 440 
REM 

pRiNT"rxTX: ■ ,i sp ,, kBAUDanmnumi" : p=0 : sf=g 

P0KE3713S/255:P0KE37136,129 

GETBt:IFEt="■"THENGOSUB850:P0KE659,96 P0KE37138/ 
IFPEEK < 669 > OPEEK < 670) THEN628 


♦BAUDO 

134•P0KE37136/127■G0T042G 


IFA1t="J"THEN A1=A1+1 

IF < Alt="J">AND< Al = 12)THENPRINT#2,CHRt<31);■A1=0: 
REM 

IFBt="H"THENGOTO2000'REM 
IFBt="S"THENBt="" REM 

IFEt="l!"THENEt="DATE : "+Dlt+" TIME: "+TIt : REM 
IFBt=" II" THENEt="DE SM0NAM SMONAM SM0NAM " REM 
IFBt=" a" THEHBt="RVRVRVRVRVRVRVRVRVRVR" REM 
IFBt="II"THENBt=" PSE K K K " REM 
IFEt=" ■"THENBt="CQ CQ CQ CQ CQ CQ CQ " REM 
IFBt="T"THENGOSUB3000:REM 
I FEt= " THENGOSUB4000: REM 
IFBt= " Si" THENBt=M 11+" DE "+M3t 


SF=00 

♦VAL MENV FöR BAUDO 

♦PF2 

♦PF3 

♦PF4 

♦PF5 

♦PF6 

♦PF7 

♦PF8 

♦GTC INPUT 
♦MOTSTATION INPUT 


IFBt=""THEN610 
PRI NT Bf.: 


GOSUB1000 


GOTO610 

IF PEEK<669> =F'EEK<670>THEN POKE 36876,200 FORX=1TO300'NEXT P0KE36876/0 : RETU 


U60 GOTO o50 

1000 REM ♦SÄNDNING BAUDO 

1010 IFBt=CHRt<13)THENPRINT#2/CHRt<8);’PRINT#2,CHRt(3), F'RINT#2,CHRt<2); GOTO10 
40 

1012 IFASC < Bt ><320RASC < Bt)>93 THEN 1150 
1020 GOTO1050 

1040 PRINT#2,CHRt <31);:PRINT#2,CHRt <31); P=0G:SF=00 GOT01150 
1050 IFL EN < Bt)>1THEN P=P+LEN<Bt) 

1860 P=P+1: IFF’>=58ANDBt= " "THENP=0 : Et=CHRt < 13): GOTO 1010 
1070 IF P=>65 THEN Et=CHRt<13) GOTO1010 
1030 FORI = 1TOLEN<Bt):UTt=MIDt <Et,1,1) 

1090 UK-ASC<UTt)-31 
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1 100 
1110 
1120 
1130 
1140 
1150 
1200 
1220 
1230 
1240 
1250 
1260 
1270 
1230 
1290 
1300 
1310 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2065 
2070 
2080 
2090 
2100 
2110 
2120 
2130 

2140 

2141 
2150 
2165 
2170 

2172 

2173 

2175 

> 

2176 
2173 
2270 
2400 
3000 
3010 
3020 
3030 
3040 

3042 

3043 

3044 
3050 
3060 
3070 


IFUT?i< 0 fiHDSF= 00 THEHPRINT# 2 , CHRf( 27 ) ; : SF =01 
IFUTX>= 0 flNDSF= 01 THENPRIHT# 2 ,CHRf< 31 );' SF =00 
PR I NT # 2 , CHRf ( RES < UT*.' > > ; 

NEXT 

RETLIRN 

REM #STRHNG TX 

FORI = 1 TOLEN < B# )- UTf=MIDf<Bf, 1 , 1 ) 

UX=ASCCUTf>-31 

UTX=ACX(UX> 

IFUT?i< 0 flNDSF= 0 THENPRINT# 2 , CHRf ( 27 ) ; : SF =01 
IFUTX>= 0 RNDSF= 01 THENPRINT# 2 , CHRf 1 31 ); ■ SF =00 
PR I NT # 2 ,CHRf < flBS < IJTX > ); 

NEXT 

F'RINT# 2 ,CHRf ( 8 ); PRINT 42 ,CHRf < 3 ) ; ' PRINT# 2 >CHRf ( 2 ); 


P=00 

RETURN 

REM #MENV FöR BILDSBNDNING 

PRINT"MW":P=0:SF=0 
PRINT"kBILDER..." 

PRIHT" ÄWUTRUSTNING ■<1)" 

PRI NT "ii ■(2)" 

PRINT"HQTC... ■ <3)" 

PRI NT "ii «<4>" 

PRINT-iiQRZ QRZ i<5>" 

PRI NT "ii xe)" 

PRI NT "ii ■<7>" 

PRI NT "ii ■ <8)" 

PRINT"il73 DE... 1(9)" 

PR INT" ÄkflNGE ALT. NR < 1 -9)■" 

GET Af:IFflf=""THEN2120 
IF < Rf>"9")OR < Rf<"1")THEN580 

H=VflL(Rf) : F-0 : REM ♦SELEKTERING fiV RhTT BILD 


PRINT# 2 ,CHRf ( 3 > ; PRINT# 2 ,CHRf< 8 );■FRINT# 2 ,CHRf< 2 ) ; 

IFR= 1 THENFQRX= 1 T 09 = Bf=Tlf<X>'PRINTBf GOSUE 1200 NEXTX 
IF < R =3 > AND< T 2 f < 1 >=""> THEN 610 
IFfl= 3 THENFORX= 1 T 08 

IFfi=3THENIFT2f<X)=""THEH NEXTX■G0T0610 
IFR=3THENBf=T2f<X) : PRINTER : GOSUB1200 NEXTX 

IFfl= 3 THENPRINT# 2 ,CHRf< 8 >; : PRINT# 2 ,CHRf< 8 ) ; PRINT# 2 ,CHRf < 2 >; 'PRINT# 2 , CHRf (2 


IFfi=3THENPRINT#2,CHRf < 2 ) ; PRINT#2 , CHRf < 2 ); : PRINT#2 , CHRf < 2 >; 
IFfl=5THENBf=Tlf(23) : PRINTBf■GOSUE1200 
IFfl=9THENF0RX=10TO22'Bf=Tlf (X)■ PRINTBf■GOSUB1200 NEXTX 


GOTO 610 

REM 

PRI HT"."]"' REM 


*QTC DRTR 
* INMATNING RV QTC 


FORI=lT 08 T 2 f<I)="" NEXT 
PRINT"kjQTC T ILI_IMS" 


1 = 1 

INPUT'VCRLL l";flf 
IFRf=CHRf(13)THEN3050 
T2f ( 1 )=fif+" "+fif 
PRiNT-fcRflDirrv:*-;. 
INPUT T2f<1+1) 

IFT2f(1+1)=""THEN3090 


3075 IFI>= 7 THEN 3090 
3030 PRINT I=I+ 1 'GOTO 3050 

3090 PRINT"."kQTC T ILI_■" 

3100 F 0 RI= 1 T 08 
3110 PRINTT 2 f(I) 

3120 NEXTI 

3130 PRINT"kOK ? <J/N)B" 

3140 GETXf=IFXf=""THEN 3140 
3150 IFXf="N"THEN 3030 
3160 PR I NT " ." 3 " : GOTO 580 

4000 REM fMOTSTRTIOM 

4010 PRINT"MM" 

4020 PRINT"kMOTSTRTION ■ "MlflimHH"; 

4030 INPUT Mlf 

4040 IFLEFTf < M 1 f> 3 ) ="QRZ"THENM 1 f="QRZ 
4050 PRINT"B"'Bf="" 

4060 RETURN 
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.♦fiscii sandning 



5010 REM 
5020 REM 
5030 REM 

5040 PRIWTkRX ■"SP"kI:fiUI*('imm«llir 
5050 P0KE667,PEEK < 668) 

5060 GET#2,BA* 

5070 IF BAt="" THEN 5140 
5130 PRIHTBftf; 

5140 GETflf : IFA*="3" THEMGOTO10: REM. PF1 START 
5160 IFA*="2"THENP0KE659,224:GOTO6000'REM.PF3 TX ASCII 


5130 GOT05060 

6000 PRIHT"rVTX ■"SP^AUDlMiimiMHI" P=0 
6010 P0KE37138,255■P0KE37136, 129 

6020 GETBf IFE*=" ■" THEMGOSUE350 : P0KE659,0 P0KE3713S,134■P0KE37136,127 GOTO5000 
6030 IFPEEK C 669 > OPEEK < 670) THEN6060 


♦VAL MENV FÖR ASCII 
♦PF3 
♦PF 4 
♦PF5 
■REM^PF6 
♦PF7 


♦SÄNDNING AV ASCII 


♦TECKEN DATA 


6060 REM 

6070 I FB*=" 2 " THENB*="CQ CQ CQ CQ CQ"'REM 
6080 IFB*="K"THENB$="DATE'"+Dlf+" TIME "+TI$ REM 
6090 IFB*="«"THENB$=" DE SM0NAM SM0NAM "REM 
6100 IFB*=" a" THENEf="RVRVRVRVRVRVRVRVRVRVRVRVRVR" 

6110 I FE*= "II" THENB$=" PSE K K K " REM 
6130 IFEf=""THEN6020 
6140 PRINTET; 

6150 FORI = 1TOLEN<ET>:UTT=MIDT CET,1,1)'REM 
6160 PRINT#2,flSC<UTT>; 

6170 HEXTI 
6180 GOTO6020 
10000 REM 

10010 DATA 69,10,65,32,83,73,85,13,68,82,74 
10020 DATA 78,70,67,75,84,90,76,87,72,89,80 
10030 DATA 81,79,66,71,O0,77,88,86,00 
10040 DATA 51,10,45,32,39,56,55,13,113,52,7 
10050 DATA 44,93,58,40,53,43,41,50,92,54,48 
10060 DATA 49,57,63,91,00,46,47,61,00 

10070 DATA4,-11,-5,31,31,31,31,-5,-15,-18,31,-17,-12,-3,-28,-29,-22 
10080 DATA-23,-19,-1,-10,-16,-21,-7,-6,-24,-14,-14,31,-30,31,-25,31 
10090 DATA3,25,14,9,1,13,26,20,6,11,15,18,28,12,24,22,23,10,5,16,7 
10100 DATA30,19,29,21,17,-26,-20,-13 

10120 REM ♦DATA FöR MENV BILDER 

10125 DATA"-"‘REM ♦INDEX 1 

10130 DATA"UTRUSTNING.." 

10140 DATA"2M - IC 251E 1-50N OUTPUT" 

10150 DATA"10-80M - IC 740" 

10160 DATA"10 EL KRVSS VAGI AND 10-20M VERTICAL" 

10170 DATA"DATOR VIC 20 MED EGEN PGM VARA" 

10180 DATA"BAUDO OCH ASCII 45-300 B" 

10190 DATA"MM MM ... " 

10200 DATA"-" REM 

10220 DATA" -" REMT 

10230 DATA" 

10240 DATA" 77777 333 " 

10250 DATA" 73 3 " 

10260 DATA" 7 3 " 

10270 DATA" 7 33 " 

10280 DATA" 7 3 " 

10290 DATA" 7 33" 

10300 DATA" 7 333 " 

10305 DATA" 

10310 DATA" -" 


♦INDEX 9 
♦INDEX 10 


10320 DATA" 

10330 DATA" DE SM0NAM" REM 
10350 DATR"QRZ DE SM0NAM "REM 
63000 END 
READV. 


♦INDEX 22 
♦INDEX 23 
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Ett program som gör ett program! 


Ofta vill man från ett BASIC-program 
ladda en minnesarea. Det kan gälla ett 
maskinkodsprogram, egendefinierade 
tecken eller något annat. Enklast och 
snabbast gör man detta genom att i 
DATA-satser definiera minnesinnehål¬ 
let och med en FOR-READ-POKE- 
NEXT-loop mata ut minnesinnehållet. 
Att bestämma varje individuellt data i 
decimal form är däremot ofta tidsö¬ 
dande och tråkigt. (Kodningen skall vi 
bara inte tala om.) Inmatningen av 
maskinkodsprogram eller tecken är 
kanske redan gjord från en maskin- 
kodsmonitor eller i hexa-decimal 
form. I så fall kan det bifogade pro¬ 


grammet vara till stor hjälp. Radnum¬ 
mer 100—990 är reserverade för REM- 
satser. Hur många REM-satser som 
behövs beror på hur stor datamängd 
som skall sparas. Det är inte fel att ha 
för många REM-satser. Observera att 
det är lätt att skapa kopior av t ex rad 
100. Det är bara att gång på gång änd¬ 
ra radnumret och trycka på RETURN. 
Resten av programmet byter ut REM- 
satserna mot DATA-satser med rätt 
data-innehåll samt avslutar med en ut- 
matningssats. Efter att detta program 
har körts så har man alltså ett helt nytt 
program i minnet! Glöm därför inte 
att SAVE:a programmet innan det 


körs! Efter körningen kan du tillfoga 
ett eget program ovanpå det konstrue¬ 
rade. Har du programmeringshjälp så 
kan du göra RENUMBER och MER- 
GE. En liten avslutande varning dock. 
Programmet ställer inte om pekaren 
för BASIC-toppen dvs datorn tror 
att det skapade programmet upptar li¬ 
ka stort utrymme som det ursprungliga 
programmet. Normalt gör inte detta 
något. Du kan t ex köra programmet 
precis som vanligt. Spara och ladda 
programmet så är problemet löst. 

Programmet är gjort för en VIC-20. 


1 PRINT"IT B=0 

2 PRI NT ' INSTRUKTIONER':-' 

3 PRI NT TRVCK 9 INOM 5 SEK" OÖ 

4 F0RN=1T0890■IFPEEK<i97>=4THENC=i 


5 NE K T 

10 PRI NT'TT 

11 T1 =T I S/60 ■ Il=D+1 

12 8=0 BX=U ; nv=e 

P0KE36379■83 

IFB=300THEHFORN=772bT031223TEP22- POREN*102•HEXT•F0RN=33446TO3S842STEP22•P0KEN 
NEXT 

IF Ii=300THEhFOF,'N=774 3T OS i 393TEP22 • P OKEN* 102 • HEXT : F0RN=38463T038853STEP22 ■ PQKE 
: NEXT 

IFD=300THEHH=0 
POKE7701.81 
POK'E38400+7701 -7680 • 2 
POKE7930,31 
POKE3S480+7930-7680 * 6 
U=21 V=0 X=08■V=i 1 
FORN=76ö0T0<723 POKEH,102•HEXT 
FORH=38400TO38443 : POKEH* 7:NEXT 
F0RN=8142T08136•POREN,182•NEXT 
F0RN=38862T0 38905 POKEH,7 NEXT 
FÖRN® 7724T08120STEP22 POKEH,102 : HEXT 
F0RN=38444T0 388403TEP22•POKEH,7 NEXT 
F0RN=7725T081218TEP22 POKEN,102 NEXT 
F0RN=38445T0 38841STEP22■POKEN,7 HEXT 
F0RN=?744T0814ÖSTEP22■POKEN,102:NEXT 
FORN®38464T0 38S60STEP22 POKEN*7•HEXT 
F0RN=?745T 08141STEP22 : POKEH,102•NEXT 
F0RN=38465T0 38861STEP22 POKEN,7•NEXT 
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16. 
n, ; 


20 

30 

40 

45 

50 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 


69 IFC=1THENGOSUB80:C=0:GOTO10 

70 GOTO100 

80 PRINT"MHDIN BLR BOLL I MITTEN JAGAS AV DATORNS RöDfl BOLL" 

82 PRINT"MSTVR UNDAN MED JOVSTICKEN 

83 PRI HT ".(HAR DU TRVCKER Pft SKJUTKNAPPEN SKICKAS EN MALSOKANDE ROBOT IVh.G 


85 PRI NT" PlSTART : TRVCK TANGENTS" 

86 IFPEEK<197 >=64THEN86 

87 RETURN 

100 GOSUB2000 1 Z=7680+X+22*V GOT0175 
105 IFPEEKCl97>=0 THEHDV--1 DX=0 = GOTO175 
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110 IF F'EEK197>=56THEHDX=+1 ; LY=-1 G0T0175 

120 IF PEEK< 197> = 1 THEHDX-+1 BY=0'■ GOTO 1 <5 

i 30 IFPEEK i. 197 > =57THEHDX=+1 DV=+1 GOTO 175 

135 IFPEEK<197>=2THENDV=+1 BX=0 ; G0T0175 

1. 40 I FPEEK< 137 > =53THEHDX=-1 DV=+ 1 • GOT0175 

145 IFPEEKC197)=3THEHBX=-1•DV*0 : GOT0175 

150 I r PEEK. < 137 > =59THEHDX=-1 DV=-1 • GOT0 i 75 

175 X=X+BX : V=V+BY 

200 IFX=-1THENX=0■BX=-DX 

205 IFV=-1THENV=0 DV=-DY 

210 IFX-22THEHX-21 DX=-DX 

215 IFV=23THENV=22•BY=-DV 

220 P0KE2 .• 32 

225 P O K E 7680+X+22 $ V,3 1 

230 POKEX+22*V+38400 ,6 

233 REM IF X>19ORX<2ORV>20ORV<2THENGOTO240 
235 IF B"0THENB=1 ; GOTO100 
240 B=0 

300 IFQ8=0 THEHS=1:Q=X:R=Y:Q8*1 

310 IF3=0GOTO400 

315 IFS>0THEHPOKE7680+O+22*R•32 

325 IFQCUTHENQ=Q+1 

330 IFQ>UTHEHQ=Q-1 

335 IFR<VTHENR=R+1 

340 T Fg>VTHFMR=R-1 

345 IFS>1THENP0KE768@+Q+22*R,46 

350 POKE38400+Q+22*R , 0 

352 S=S+1 

353 IFS>8THEMS=0 

354 h=0 

355 IFQ=URNDR=VfHEMft=i PÖKE7630+U+22*V,31 POKE3840@+U+22*V,2 
400 I Ffi=1THEHR=0 GOTOi00 

403 POKE7680+U+22*V,32 

404 1FU>XTHEHU=U-1 

405 IFIJ<XTHENU=IJ+1 
410 1FV>VTHENV=V-1 
415 IF V< V THEHV=V +1 
420 IFU--1THENU=@ 

425 IFU=22THEHU=21 
430 IFV=-1THENV=0 
440 IF'v'=23THEHV=22 
445 POKE7680+U+22*V,81 

450 P0HkE 38 400+U+22*V, 2 

451 REM FORT=1 TO10 : NEXT 

452 IF U=X R HB V =V T H E H 5 0 @ 

455 GOTO100 

500 T2=TIS/60 

505 T2=T2-T1 

510 PRIHT "TIB " T2 

515 IFPEEK(197>=32THEN010 

520 GOT0515 

2000 P0KE37154■127•Q9=<PEEK <37137) RHD23)OR <PEEK C 37152 >RHB128 > : Q9=RBS<( Q9-180 >/4 
)-7 

2005 Q8-0=Q8=PEEK <37137)RNB32:IFQ8THEHQ3=1 

201 0 0WQ9G0T0 2100,2110,2120,,2130,2140,2150,,,,2160,2170,2130 

2020 GOTO2100 - 

2100 BX=-1 : DV=+1 : RETURM 

2110 BX=~1 ; BY=-1•RETURH 

2120 BX--1•DV=+0=RETURH 

2138 DX=-0• BV=+1• RETURH 

2148 DX--0 : BV=- 1:RETURH 

2i5o RETURH 

2160 DX=+1:BV=+0■RETURH 
2170 DX=+1■DV=-1•RETURH 
2180 DX=+1:BV=+1:RETURH 


RERBV. 
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rw' 


Planera din ekonomi 

Flera läsare har hört av sig om ekonomiprogrammet i nr 
5/6-83 och ville ha det på VIC-64. Vi bad Lars Moeschlin 
skriva om det för en 64:a och här det: 


Programmet är uppbyggt med konton, 
där man lägger in sina fasta utgifter 
och inkomster. Vid avlöningstillfället 
ger programmet besked om hur myc¬ 
ket som skall sparas eller tas ut från 


bankkontot. Med de disponibla peng¬ 
arna betalas räkningar och resten an¬ 
vänds för rörliga utgifter (mat, kläder 
etc). 

Programmet nedan är avsett för 


VIC-64 och körs helt enligt inlagda in¬ 
struktioner. För dig som har en 
VIC-20, finns programmet listat i VIC- 
rapport nr 5/6-83 och som vanligt kan 
den, som inte vill knappa in program¬ 
met själv, köpa en kassett eller disk 
med färdigt program direkt från för¬ 
fattaren: Lars Moeschlin, S. Fiske- 
bäcksvägen 84, 421 58 Västra Frölun¬ 
da. Tyvärr kan han inte svara på tele¬ 
fonfrågor, så har du något du vill frå¬ 
ga om, var snäll och SKRIV till ho¬ 
nom. 
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318 

320 

338 

340 

360 

370 

380 

381 
380 
400 
405 
410 
420 
430 
440 
445 
450 
460 
470 
480 
490 
580 
510 
520 
530 
540 
550 
560 
570 
575 
580 
598 
595 
600 
610 
620 
630 
648 
650 
660 
678 
680 
690 
702 
705 
710 

' 729 
721 
730 

749 

750 
760 
770 

789 
785 

790 
800 

819 

820 
830 

849 

850 
855 

869 

870 
880 
890 
900 
910 
920 

931 

932 
935 


NEXT NK=NK-1•K=K-1 : RETURM 
INPUT " MJTGIFT/PER10I'=" ; BZ t K > 

INPUT" ÖST(iRTPER10D= " > 3Z t K > = IFSZtK)>NPGQTG330 
IMPUT" MPERIUDINTERVRLL= ", HZtK> : IFHZtK»0THENRETURN 
G0TO340 

PR I NT " B" RIGHT* t STR* t K >, 2 >" " T* t K > ; PR INTSPC t 6-LEN < STR* t BZ t K ) ) ) > B'/. t K ); 
PRIHT"IFP STRRT"RIGHT* t STR* tSZ t K> >,2)" INT"; 

PRIHTRIGHT* tSTR* t HZ C K > >,2) : RETURM 

IMPUT "MKORREKT INSKRIVET"; X* : IFLEFT*tX*, 1 ) = "N"THEN ONMGUTO300, 440 
PRINT"IK0NTOT LAGRAT" : INPUT"MFLER KONTONOX* 

IFLEFT*tX*,1> = "J"THENONMGQTO290 , 420 
GOTO260 

M=2 IMPUT" n?KOMTONR";K IFK<10RK>NKG0TO420 
GOSUB370 

PRINT“MDM GAMLA DfiTfl SKALL VARA KVAR TRVCK <RETURM> EFTER ?" 

PRI HT “ MRABERA MED KONTONAMN 
GOSUB310 GOSUB370=GOTO390 
K=1 

PRIMT" TIMKONTOLISTA"■J=0 

GO3UB370:K=K+1 : J=J+1 IFK>NKG0TO500 

IFJ<6GOTO480 

PRINTN*; 

GOSUB90 
IFK>NKGOT0260 

PR INT "139 3KALKVLERING" M=3 ■ I FNL=0ThEM I NPUT " »v ’ LKE ' °EMODNR" 1 .uTij 5b0 

PN=P<NL)+1 IFRIGHT*tSTR*tPN>,2 >>RIGHT*tSTR*tMP>,2 >THENPN=PN+100-HP 
PPIHT"MPERIODNR"; PK IMPUT"MKORREKT PERIQBNR",Z* IFLEFT*tZ*•1 - gOTUj.0 

INPUT"MTV ILKÉT PERIODNR" ,Z IFHL=0THEHPM=Z GOTO560 _ 

IFZ=P<ML>THENM=4 : PH=P<ML>: PR IMT"MKALKVL F0R PERIOD ,c GöRS UM GUTO590 
PRINT"ZKKALKVLERING OMÖJLIG" GOTO560 

■V=8 F0RI=9T0NP R<I>=0 NEXT■PRINT"KB" F0RK=1T0NK 

PRIMT"ZKOMT0 MR="K ; I=3ZtK) . . 

V=v+BJi< K >: R < I :■ =R < I > +BZ < K > IFI =VAL < RI GHT * t STR* t PN >, 2 > ) THEN, ; .=v ,+BZ < K 
I = I+HZ < K)' IFKNP+1GQTO600 

NEXT Pf1=IHT' Y/NF+.5) D=X-RM PR INT "»VERKLIG UTGIFT-", X 
PRINT"MMEBELUTGIFT=";RM=IFIK0THENPRINT" .BSPARA",-Di"KR 
I FD>=0THEMPR I MT " MITAG UT " D " KR 
E=0 : INPUT"MEXTRA SPARAHDE=",E : IFM=4GOTO630 
IFNL<MLTHENNL=NL+1 : GOTO680 

FORI =2T0NL = V< 1-1 > =V11 > Ut 1-1 > =Ut I > : P< I-1 > «P’ I ; NEXT 
p >: NL > =PM -11 t NL > =U t HL-1 > -D+E : PRINT" .^PLANERAT SPAR=", Ut HL.-' 

INPIJT " MTvERKL IGT SPAR= ", V t NL > ■ PR I NT" ÄTv'ERKL-PLflM= " V t NL > -U t HL >" KR " 

PRINT PRINTN* 

GOSUB90 

GOTQ900 

X=16 T9 AA=-X AE=X:IFAT=OTHEHAA=0:AB=0 : M=2 : E=MR-M-3 
FORI = 1TONA : IFAACA11> THENAA=A11) 

IFAB>AtI)THEHAB=AtI> 

NEXT D=tAA-AB>/E IFDC2@0THEHD=200 

V=LENtSTR*tINTtD+1 >)>-2 : Z=D/10'tV ; B=1 : C=2 IFZ>1THEHB=2 8=10 
IFZ>2THENB=5 

IFZ>5THENB=10 C=20 „ . ti „ 

AD=B*10T*t CC=C#10ttV-3) L=-l FORI=MTOE+M : LK=SK+NC#I K=L F0RJ-5TU4+NK 

K=NOTK : IFKTHENPOKELK+J.,7 _ , 

NEXTJ : L=N0TL : NEXTI : RI=RD*INTtAB/AD> AC=A1 FORI=E+M+ xTOM+1bTEF 1 _ 

X= I NT t AC/20O+. 5 > /5 ■ IFX-CC* I HT t X/CC ) =0THENPOKEG, I PRINT" STT XTAB14 ) CHR*239 ) 

RC=AC+AD ; NEXTI , 

FOR I = 1 TONA X= t A t I)-AI > /AD K= I HT t X > L= I NT (. 8*\ X-1 NT t k > 0 + 1 

POKETK+ tE+M-K > *NC+1+4, QZ t L > : NEXT I ; RETURN , ■ c . T r ut *' v* o ■> 

POKEG, NR-1 PR I NT" SIXMURRTAL", FOR 1 = 1 TONL : X*=3TR* t P11 > > X= v HLRI GHT*X*, ä > t 

X*=M ID* t X* ,2,2 > IFXO12G0TOSS0 
POKETK+1HR-1>*NC+4+1,231 IFI C3G0T0890 
IFI<12ANDX>ITHEHX=I 
PRIHTTAB11-X/2+4>X*, GOTO890 
IFI=NLAHDX>1ANDI>1GOTOS60 

NEXTI RETURN „ , r , T . _ M 

PRIHT"^B PER UTGIFT DIFFERENS" FORI = 1TONP X=R11 ;• V =R11 >-RM 
PR INTSPC13-LENtSTR*11>>>ISPCtS-LEN tSTR*tX)>>XSPCtS-LEN tSTR*tV )>i t NEXT 

PRINTN*:GOSUB90 „ T t IT „ 

RT=0 : NA=HF' : FOR I = 1T ONP - H (I > =R < I NEXT POKEBG,RG-PRINT 73 StoW 

PRINT" ^SJTKR PERIODUTGIFT" GOSUB720 

POKEG,NR• PRINTTABt5)"HSl23456739012H PER-IK1MII0D3", 
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940 GQSUB90 : POKEBG,HG GOTO190 

952 L=VAL<RIGHTT<.STRT<P<NL>>,2>> ; X=IKHL) H<1)4; ' V=0 F0RI=2T0HP L*L+1 
954 ifl: hpthehl=i 

96a fl•: I > =fkl-l • +RM-RCL • IFflCI ><XTHEHX=ACI> V= I-1 

965 HEXT:PRINT"3S!:«"ST PRIUT"SWBLIR MIN EFTER "V" PER "PRI NT" Ml IN SPRRRT ="X"KR" 
967 PRINTNT G0SUB90 

970 POKEBG, RG PRI HT ”7]" SVSW PRI HT" slSTTKR "ST RT=0 ■ NA=HP ■ GOSUE720 
975 POKEG, HR PR I HT” STEFTER012345678902 TER I OlIdlMhDERS"; 

900 GOSUB90 ; POKEBG,HG GOTOi90 

I0GO PRi:-1T"3J!2W"RT"®r PRI HT" PER VERKL PLRNE BIFF. «J" 

1010 FOR I = 1TÖHL XT=RIGHTT CSTRT (P CI • >, 4VT=R IGHTT <STRT V< I», 6 > 

1020 ZT=RIGHTT CSTRT<I.K I>>,S>•AT=RIGHTT<STRTCV<I>-U<I>>,6 > 

1030 PRIHTSPC4-LEH 1 ’ IT,■ >XTSPCC6-LEH',VT;• »VTSPCC6-LEN-'ZT> >ZTSPCC6-LEHCRT> AT • HEXT 
1040 PRIHTNT GOSUB90 

1050 POKEBG,RG:PRINT"3" SVSW PRI NT"3STKR VERKLIGT 3PRRLÖGE" RT=0 Hfl=NL 

1051 FORI 1TO! IL•H<I>-VCI> HEXT RT=0 GOSUB720 = GOSUB840•POKEBG,RG 
1060 GOSI 1B9A 

1073 POKEBG • Rg PR I HT" 3" ‘ SVSW PR I NT" SJTKR VERKL - PLAN SPARL. " AT=1 ■ FOR I=1TOML 
1O30 A CI > =V CI > -U CI "> '■ HEXT OOSUB720 G0SUB840 OOSUB90 : POKEBG, HG PRIHT"3" GOTO 190 
1100 PRIHT"3ÄLAGRIHG AV DATA" HT—FT ; iHPUT"!¥FILNAMN", XT IFXTO" "THENFT=XT 
11CG IKPUTTSflND I KORREKT PGS",XT IFLEFTT(XT,1>O"J"GOTO1180 
1110 0PEN1,1,1, FT PRINTtII , NK, C T • HL; CT-, HP; CT-, RM, CT, 

1115 FORK—ITOi I.' FRI NT# 1 .TT O- '• .CT,BX'K ■; C T • SI. N > , C ?; HU\K> ■ CT. HEXT 

1120 FOR 1 = 1 TOML PRIHT#l,'v I • C T OJ 1 ■ ' t, PCI, CT, !’EXT 

1130 F0RI=1T0HP PRIHTttl,R(I>,CT, HEXT CL0SE1 

1140 IHPUT "SKORREKT LAGRAT", X" IFLEFT ' C.'IT, 1 • O"J"OOTO1100 

1150 EHB 

1200 PRIf IT"3:’J"L-1 INPUT " VILKEH PERIOD";! I =VAL C RI GHTT C STRT •. I >, 2 > > 

1210 PRIHT"71 HR KONTO 3ELCPPK" V=0 F0RK=1T0HK J=SXCK> 

1215 IFIO JGOT01238 

1220 V=V+B:; K> PRIHTTflBt-i-LEfkG fRT <* • '> ••KLEFTtCTf .K 

1225 prihtb;-:*.:: > 

1230 ■-r+HXCK..' IFJ2NP+1 GOTO 1215 
1240 HEXT PRINTTHBCS ' "7^.UH!'1A"TAB',, 


_!_• J 


' ■ T RB<21 LEN' STF*<BX<K>>>.* ■ 


r RT■ V • • • V PR I HT" " NT GOSUB90 G0T0269 


READY. 
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Rättelser 

I VIC-rapport nr 2 har två fel smugit sig in på sidorna 4 och 18. 

Vi publicerar därför dessa sidor igen med de rätta bilderna inlagda. 


CRSR Vänster 

Flyttar markören ett steg åt vänster. 
Inom situationstecken så skrivs 



CRSR Höger 

Flyttar markören ett steg åt höger. In¬ 
om situationstecken så skrivs 



Markörförflyttningar 

Genom att trycka på CRSR tangenter¬ 
na på tangentbordet kan Du som Du 
sett, och säkert använt dig av åtskilliga 
ggr, flytta omkring markören på skär¬ 
men. Vad Du kanske inte vet är att du 
även kan använda dessa i dina PRINT 
kommandon. Detta Är mycket an¬ 
vändbart i många fall och kan t ex va¬ 
ra nyttigt att kunna när man skall göra 
spel och liknande. Det är dock inte ba¬ 
ra dessa tangenter Du kan använda ut¬ 
an även andra tangenter som påverkar 
skärmen på något vis går bra. Låt oss 
göra en lista över dem: 


Shift + CLR/Home 

Flyttar upp markören till översta 
vänstra hörnet efter att först ha rade¬ 
rat hela skärmen. 

Inom situationstecken skrivs 



CLR/home 

Flyttar upp markören till översta 
vänstra hörnet av skärmen utan att ra¬ 
dera den. 
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Inom situationstecken skrivs 


5 


INST/Del 

Tar bort det tecken som står före mar¬ 
kören. 

Inom situationstecken skrivs 



CRSR Upp 

Flyttar markören uppåt en rad. Inom 
situationsteckens skrivs 

□ 

CRS Ner 

Flyttar ned markören en rad. Inom si¬ 
tuationstecken skrivs 



Med ÅÄÖ installerat 

De tecken som skrivs ut när man 
trycker på en av dessa tangenter kallas 
KONTROLL TECKEN. 

Användning av SH1FT + CLR/HO¬ 
ME har vi redan sett användas i de 
exempel vi tittat på i detta nr. Förutom 
att använda dessa tangenter så kan 
man också använda tangenterna för 
att byta färg och få reverserade tecken 
alltså dem man kan hitta under siffror¬ 
na. Testa dessa i olika printkomman- 
don. Ha roligt! Du kan ju inte förstöra 
något, så vad gör det om något blir fel. 
Ha det så bra tills nästa månad då vi 
skall titta på nya SPÄNNANDE saker 
Du kan använda ”VICKE” till. 

5 PRINT”(SHIFT + CLR/HO- 
ME)(CRSR NER)(RVS ON)(22 blank- 
tecken)(RVS OFF)” 

10 PRINT”(SHIFT + CLR/HOME)” 
20 FOR I = 1 TO 20 
30 PRINT”(SHIFT + CLR/HOME)” 
40 FOR J=0TOI 
50 PRINT”(CRSR HÖGER)”; 

60 NEXT J 

70 PRINT CHR (65 + 1); :FOR K=1 
TO 90: NEXT:PRINT 
80 NEXT I 

90 PRINT”(SHIFT + INST/DEL)” 
100 GOTO 5 

Det som står inom parenteser skriver 
Du inte in i detta program utan gör det 
som står inom prentesen istället. T ex i 
fallet (SHIFT + CLR/HOME) så hål¬ 
ler Du alltså SHIFT-tangenten ned¬ 
tryckt medan Du trycker på CLR/- 
HOME-tangenten. Programmet pre¬ 
senterar inte särskilt mycket men kan, 
förhoppningsvis, introducera dig i 
markörförflyttningen värld. 












Det enda du oftast får reda på när 
du börjar spela är att någon i spelet 
frågar dej. . . 

— VAD SKA JAG GÖRA NU? 

Sedan är det upp till dej att tala om 
vad som skall göras, och då har du 
som ända hjälp din egen fantasi samt 
de tillgångar spelet bjuder, i form av 
kommentarer ifrån ”Din utsände”. 
Vad han ser, hör och var han är. 

Spelet bygger nästan bara på sträng¬ 
behandling. Här hjälper ingen kun¬ 
skap i supersnabba reaktioner med din 
väloljade joystick inte. Nej, bara din 
tankeverksamhet är väloljad så räcker 
det spelet igenom. 

Hur som helst. Datorn förväntar sig 
alltså en mening ifrån dej, som t.ex. — 
TA LAMPAN, eller LÄS LAPPEN. 
När den fått en mening så behandlar 
datorn den på följande sätt. Först tar 
den reda på om det är ett eller två ord 
du skrivit, och det gör den genom att 
skilja orden åt vid mellanslaget. LÄS 
blir ORD 1 och LAPPEN blir ORD 2. 
Finns inget mellanslag blir allt du skrev 
ORD 1. 

Det först ordet du skriver måste näs¬ 
tan alltid vara ett VERB, t.ex. TA, 
GÅ, ÖPPNA, SKJUT osv. Det andra 
ordet är antingen ett OBJEKT eller en 
riktning. Det vanligaste är att Adven- 
tures bara förstår två ord. Det går na¬ 
turligtvis att få det att förstå hur mån¬ 
ga som helst, men det medför en desto 
krångligare programering, och längre. 
Jag kommer att till en början iallafall 
nöja mej med två. 

Just den biten ser ut så här. 

10 INPUTINS 

20 FOR 1= 1 TO LEN(INS) 

30 IF M1DS(INS,1,1)= ” ” THEN 50 
40 NEXT: 01S = INS: GOTO 70 
50 01S = LEFTS(1NS,1-1) 

60 02S= R1GHTS(INS,LEN(INS)-I) 
70 PRINT01S: PRINT02S 
80 GOTO 10 

Prova så får du se. Men mera om 
programering och förklaringar till den 
kommer senare. 

Men nu för att överhuvud taget kun¬ 
na göra ett eget AD VENTU RE eller 
ÄVENTYRSSPEL som det heter på 
Svenska, så krävs det en historia eller 
ett mysterium kring vilket spelet ska 
kretsa och gå ut på. Och till nästa gång 
tänkte jag inte sätta dej vid datorn och 
knappa, utan vid skrivbänken. Och 
sätta dom grå på prov, du ska nämli¬ 
gen skriva en sådan historia. Den kan 
handla om vad som helst, bara den har 
ett antal bestämda platser eller rum 


som du kan gå till, samt innehålla di¬ 
verse prylar vilka ska bidra till myste¬ 
riets lösning. 

Det behöver nu till en början inte be¬ 
tyda att du skenar iväg till något hund- 
rafemtirumsslott med lika många gån¬ 
gar, vrår och prår, häxor, tomtar och 
elaka monster i drösar, utan jag tycker 
att du kan vara nöjd om du får ihop 


mellan 5 och 10 olika platser, och kan¬ 
ske lika många saker. 

Det är ganska mycket att tänka på 
redan här, och jag tänkte visa dej hur 
jag brukar gå tillväga. 

Rita en karta över platsen för skåde¬ 
spelet, gör en liten lista över de olika 
platserna samt sakerna. Den kan se ut 
t.ex. så här. 



D Rumbeskrivning 


Här finns 


1 En trappa 

2 En dörr 

3 En lapp 

4 En nyckel 

5 En dåligt gömd dörr 

6 En nyckelknippa 


Trapphus 

Entré 

Sovrum 

Hall 

Allrum 

Vilorum 

Kontor 


II 

O 


s 



Allt det här kan självklart bytas ut 
mot sträckbänkar, piskor och dylika 
tingestar för dom som nu önskar det. 
Men vad det nu än vara må, så är prin¬ 
cipen alltid den samma. 

Vidare så är det lämpligast att du går 
i väderstreckens riktningar, alltså 
nord, syd, väst och öst. Därför att GÅ 
BAKÅT eller GÅ HÖGER, blir bara 
bökigt. Det allra enklaste är också om 
man kortar ner alla riktningar man ska 
kunna gå åt, till bara en bokstav. Så 
ska du t.ex. här ovan från rum 5 till 
rum 6, så skriver du bara Ö. Sedan kan 
du även skriva ner alla kommentarer 
du vill ska förekomma i ditt spel, t.ex. 

Datorn frågar. 

— VAD SKA JAG GÖRA NU? 

Du svarar. 

— TA NYCKELN. 

Datorn säger. 

— DET FINNS INGEN HÄR! 

Osv. Detta för att du ska få en så 
överskådlig bild av spelet som möjligt, 
innan du börjar göra program av det. 

Det låter kanske både mycket och 
kanske krångligt, men när du kommit 
igång så flyter det både lätt och oftast 
alldeles för långt. Tänk bara som en 
dator när du skriver, INMATNING, 


BEARBETNING och UTSKRIFT. 
Men du måste ha med dessa kommen¬ 
tarer ifrån ”din man på plats”, därför 
att du dels måste vara i samma rum 
som de saker du vill ta, eller dörrar du 
vill öppna. Och du kan bara gå i de 
riktningar som rummen eller platserna 
tillåter. 

Och grötar det ihop sig för dej så får 
du mera hjälp i kommande nummer. 

Jag hoppas att jag förklarat mej på 
ett förståeligt sätt och att det låter in¬ 
tressant. Så vässa pennorna och spar 
oljan till cellerna, så kommer du nog 
alltid på något. 

Lycka till, till nästa gång! 

Börje Törnby 
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Hur gör man 

Commodore The microcomputer magazine, utgåva 27. 

Commodores dotterbolag, MOS Tech- Kort historik 

nology lnc, producerar de chips som Många är väl ni (hoppas jag) som 
utgör hjärtat (och andra oumbärliga kommer ihåg när radio och TV- 
delar) till Din mikrodator. apparater av uppbyggda av rör. De var 

Här skall vi beskriva hur de fram- s tora (och för klumpiga för att lätt gå 
ställs. att bära med sig) och utvecklade en hel 

Om Du tillhör dem som studerat till- del värme, 
verkning av integrerade kretsar (inte- Minns ni när övergången började, 
grerad = sammanslagen), så kommer först till transistorer och sedan till ”so- 
dessa sidor inte att innebära några lid state”? Jag var ganska ung, men 
större nyheter, men om Du, liksom j a g har inte glömt hur ”inne” det var, 
jag, ofta tvekat inför ord såsom ”halv- alt j mitten av 1950-talet kunna ”stila” 
ledare”, eller undrat vad detta som me d en transistorradio, (”Kolla grab- 
kallas chips egentligen är, läs följande bar — inga rör!”) och att man faktiskt 
sidor. kunde bära den med sig! På 1960-talet 

De av er som har gett sig på att kika började TV-apparater, baserade på 
inuti er mikrodator, vet att där kryllar ”solid State”, att visa sig. De var 
av något som närmast liknar en massa mindre, lättare och effektsnålare än si- 
tusenfotingar i metall. Kanske har nå- n a föregångar. 
gon sagt er, precis som jag en gång fick 
höra, att det är de som kallas chips. 

Detta är nästan rätt, men inte riktigt. 

Dessa tusenfotingar är en skyddande 
förpackning som kapslar in chipet som 
finns inuti. De kallas i tekniska termer 
för ”DIL-kapslar” (Dual-In-Line- 
packages). På engelska säger man 
”DIPs”. 

När ett chip är monterat i en sådan 
kapsel med ben, kallas alltsammans 
för krets, lE-krets eller kapsel. Den del 
som Du inte ser, den ca 4x4 mm stora 
kiselbrickan inuti DIL-kapseln, inne¬ 
håller den elektronik som Din dator är 
uppbyggd av. 

Det finns många olika typer av kret¬ 
sar, var och en med olika funktion. 

Om en krets utför kommandon och ut¬ 
för beräkningar, kallar vi den för en 
mikroprocessor. Om den helt enkelt 
lagrar information, så är det en min¬ 
neskrets. Om den kan få olika punkter 
på Din bildskärm att lysa, så är det en 
videokrets och om den styr högtalare, 
så är det en audiokrets. 

Miraklet (som numera tas för givet) 
är att dessa komplexa kretsar, som för 
35 år sedan tog hela rum i anspråk med 
en strömförbrukning som ett mindre 
samhälle, nu har reducerats till mikro¬ 
skopiska streck på en liten bit kisel. 

Denna är dessutom inte större än en 
halv lillfingernagel och drar mindre 
ström än en liten ficklampa. 



Bakgrunden till den här utveckling¬ 
en hade lagts av två betydelsefulla upp¬ 
finningar: Transistorn 1947 och den 
integrerade kretsen (1C) 1960. 

Båda utnyttjade halvledares egen¬ 
skaper för att skapa elektriska kompo¬ 
nenter för att först ersätta rören med 
transistorer och sedan åstadkomma 
komplettera elektriska kretslösningar. 

Låt oss för ett ögonblick stanna till 
här och säga några ord om halvledare 
och integrerade kretsar, eftersom de är 
så avgörande för hela den här utveck¬ 
lingen mot datorer. 

En halvledare är som namnet anty¬ 
der ett material som normalt inte är en 
god elektrisk ledare såsom koppar, 
men inte heller en isolator, liksom glas 
eller gummi. Dock kan en halvledare 
på olika sätt försätter i det ena eller det 
andra tillståndet. Det är inte så kons¬ 
tigt som det låter. 



chips? 

Halvledare framställs genom att in¬ 
föra speciella störämnen (vanligtvis 
bor, arsenik eller fosfor) i extremt rent 
material, såsom kisel eller germanium. 
Tekniken att införa störämnen kallas 
”dopning”. Störämnena, eller dopäm¬ 
nena, medför att det normalt oledande 
kislet, blir elektriskt ledande. 

Om dopämnena kan införas på ki¬ 
selbrickan med mycket hög lägespreci- 
sion, (jag skall förklara vad jag menar 
med precision längre tram) kan man 
hantera elektriciteten som man vill: 
förstärka den, bryta den och så vidare. 

De mest strömsnåla kretsar som 
finns i dag är så kallade MOS-kretsar 
(MOS = Metal Oxide Semiconductor), 
och vad gäller transistorer talar man 
om fälteffekttransistorer av MOS-typ, 
så kallade MOSFETS. Dessa begrepp 
kan vara bra att känna till. 

Integrerade kretsar, vilka är kom¬ 
pletta elektriska funktioner, gjorda av 
en bit halvledare, växte fram nästan 
samtidigt med halvledartekniken. 

På en integrerade krets är alla in¬ 
gående komponenter fabricerade på en 
enda bricka av helt rent kisel, (vanli¬ 
gast i datorsammanhang) ett så kallat 
substrat (underlag). 

Den äldre motsvarigheten till IC- 
kretsarna utgjordes av kretskorten, 
som bestod av separata eller ”diskre¬ 
ta” komponenter som motstånd, kon- 
densatorer och transistorer (eller rör 
på gamla kretskort), ihoplödda på ett 
plastkort. I dag löder man ihop och 
förbinder IC-kretsarna med varandra 
på dessa plastkort. 

Du kommer att märka en sak på en 
gång — integrerade kretsar kan vara 
mycket mindre. Med detta följer, för 
det första, att de är snabbare (kortare 
sträcka för strömmen att gå) och drar 
mycket mindre ström. De är också 
mycket billigare att producera. Och, 
allteftersom tillverkningsprocesserna 
fortsätter att förbättras blir de allt 
mindre — och billigare. 

Jag ska inte gå in mer på detta, ef¬ 
tersom- vi ska gå igenom MOS- 
teknologi lite senare. Men innan jag 
byter ämne, vill jag nämna att männi¬ 
skor länge använde sig av halvledare 
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magnetband och skickas till det första 
steget i tillverkningsprocessen: foto- 
maskframställningen. 

Innan jag går igenom fotomask- 
framställningen skall jag först säga 
några ord om wafers, eller skivor som 
är den svenska benämningen, efterson 
varje chip från början utgör en liten 
del av en stor kiselkiva. 

Skivor är som namnet antyder, tun¬ 
na, runda skivor av rent kisel. De 
framställs genom att smälta sand, att 
rena smältan från orenheter och att 
kristallisera det återstående kislet till 
en stav av enkristalligt kisel. Denna 
stav har för närvarande en diameter av 
fem till åtta tum (12,7—20,3 cm), men 
storleken ökar. Staven sågas upp i ski¬ 
vor om cirka en millimeters tjocklek 
och poleras spegelblanka innan de är 
mogna att få sitt kretsmönster på 
ovansidan. 

På en skiva ryms cirka 400 chips. 

I planarprocessen, vilken är den 
vanligaste framställningsmetoden för 
integrerade kretsar, beläggs skicorna 
med ett tunt skikt av metall eller kisel- 
dioxid (som är en mycket god isolator) 
och mönstras med fotolitografiska me¬ 
toder. Jag skall nu beskriva de olika 
stegen i planarprocessen. 

Fotomaskf ramställning 

När kretslösingen lämnar designavdel¬ 
ningen i form av ett magnetband, skic¬ 
kas den till maskframställningen. Här 
gör man ett fotonegativ av kretslös¬ 
ningen, som i storlek är cirka tio gång¬ 
er så stor som den slutliga. Negativet 
görs på en fyra tums fyrkantig, ljus¬ 
känslig glasskiva, som kallas retikel. 
En krets byggs vanligen upp av flera 
lager, så man behöver en retikel för 
varje. I mera komplexa fall kan det rö¬ 
ra sig om fyra till fem stycken. 

Varje retikel används nu för att byg¬ 
ga den slutliga fotomaskinen för 
”sitt” lager i processen. Genom en an¬ 
nan fotografisk metod kan krets¬ 
mönstret på retikeln reduceras till sin 
slutliga storlek på cirka 4x4 mm. Detta 
lilla mönster reproduceras nu på en ny 
ljuskänslig glasskiva, och vi får en slut¬ 
giltig mask, som består av flera hundra 
likadana mönster för ett visst lager av 
kretsen. 

Nu kommer vi till skivorna. Den 
slutgiltiga masken sätts in i en fotoli- 
tografisk maskin tillsammans med en 
skiva som belagts med ett ljuskänsligt 


skikt av så kallad fotoresist. När ljus 
passerar genom masken kommer expo¬ 
nerade delarna att härda. De delar som 
täcks av masken kommer att förbli 
oexponerade och härdar inte, varför 
de lätt kan avlägsnas med en kemisk 
lösning. Då fotoreisten avlägsnas, fri¬ 
läggs det underliggande skiktet som 
kan vara metall eller oxid, beroende på 
kretstyp. Tusentals wafers kan gå ige¬ 
nom denna behandling för varje lager i 
framställningsprocessen. 

Som Du kanske redan förstått, kom¬ 
mer minsta störning i tillverkningen att 
få allvarliga konsekvenser och en 
dammpartikel är rena bombnedslaget. 
Därför sker större delen av process- 
ningen i så kallade rena rum, med 
noggrant kontrollerad temperatur (+ 1 
C) och luftfuktighet. Dammpartiklar 
filtreras bort och personalen bär spe¬ 
ciella skyddsoveraller, stövlar och hu¬ 
vudskydd. Till och med mustascher 
och skägg måste skylas — en perfekt 
arbetsmiljö för en allergiker. 

Plasmaetsning, Uiffusion och 
Jonimplantation 

När fotoresisten på skivan har avlägs¬ 
nats i den fotolitografiska processen 
kommer skivan i nästa steg att utsättas 
för ett plasma eller en exiterad kemisk 
ånga, för att uppnå en önskad effekt. 
Förr användes vätskor, men de områ¬ 
den som skulle etsas, blev till slut så 
små att vätskan inte längre kunde 
tränga in dit. 

Nu är det dags att belägga skivan 
med de dopämnen som skall ge kisely- 
tan sina elektriska egenskaper. De van¬ 
ligaste dopämnena är som tidigare 
nämnts bor, fosfor och arsenik, och 
vilket som väljs och hur det appliceras 
på skivan beror på vilket lager man är 
i, samt vilka speciella kretsegenskaper 
man vill framställa. 

Det finns två olika metoder för att 
applicera dopämnena: diffusion i vär¬ 
meugn och jonimplantation. 

Diffusion går till så att skivorna pla¬ 
ceras i ett rack, så kallat skepp och förs 
med programmerad hastighet in i vär¬ 
me-ugnen, som håller cirka ett tusen 
grader C. De rätta kemiska gaserna 
blandas noggrant på ett bestämt sätt, 
varvid dopämnet tränger i, ”impregne¬ 
ras” i kislet. 

För nyare och mer komplexa kretsar 
är diffusion inte alltid den bästa meto¬ 
den och i dessa fall används jonim¬ 


plantation. 

Metoden innebär som framgår av 
namnet, att dopämnena joniseras vart¬ 
efter de accelereras mot ett elektriskt 
fält. Strålen får träffa kiselytan, varvid 
dopämnena tränger in till önskad 
mängd och önskat djup. Exakt rätt 
mängd och rätt djup är av oerhört stor 
betydelse för att kretsen skall fungera. 

Slutfas och kontrollmätning 

Efter cirka tre veckor är skivan klar ef¬ 
ter att ha slussats ut och in i olika pro¬ 
cessteg. Skivan är nu täckt med ett 
skyddande lager av kiselnitrid och ge¬ 
nom ytterligare en fotolitografisk pro¬ 
cess så friläggs de något större fyrkan¬ 
tiga metallytorna, de så kallade bond- 
ytoma, dit anslutningstrådarna fästs 
eller bondas. 

Innan skivorna sågas itu till enskilda 
chips så skall de kontrollmätas. Det 
sker med hjälp av ett antal nålfina 
mätprobar som sänks ner mot skivan 
och mäter med hjälp av en dator på 
varje chip för sig. Om ett chip är felak¬ 
tigt så markeras det med bläck. 1 de 
flesta industrier i dag är cirka 50 pro¬ 
cent av chipen felaktiga, så det gäller 
att sålla bort de dåliga i god tid. 

Kapsling 

Slutligen sågas skivan till enstaka chips 
med hjälp av en mycket fin diamantsåg 
innan chipet monteras i en DIL-kapsel. 
Kretsen ansluts till benen på kapseln 
via mycket tunna guldtrådar. Detta 
kallas bondning och görs under mikro¬ 
skop. (Om Du bryter upp en gammal 
kapsel kan Du se trådarna med försto¬ 
ringsglas.) 

Till sist sätts locken, av plast eller 
keramik, på och vi har fått en färdig 
krets, klar att sättas in i Din dator, el¬ 
ler i en diskmaskin. 

Jag hoppas de inte blandar ihop chi¬ 
pen, för i så fall kanske vi får upproris¬ 
ka diskmaskiner, som spelar oss spratt 
och räknar ut vattenförbrukning i stäl¬ 
let för att diska. 

Det är en liten klyscha, men jag tän¬ 
ker säga den ändå; I framtiden kan ni 
nog räkna med att IC-kretsar kommer 
att bli ännu mindre och ännu mer 
komplexa. Vi kommer att kunna uträt¬ 
ta mer med lägre strömförbrukning till 
ett lägre pris. 

Nya upptäckter som ökar fotogra¬ 
fisk upplösning fortsätter att påverka 
framställningsprocesserna. Storleken 
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bestäms i alla fall till viss del av upp¬ 
lösningen vid fotomaskframställning- 
en. 

När datorer gör datorer kan effek¬ 


terna bli slående. Den sortens gissning¬ 
ar kan ni läsa överallt. Jag har i första 
hand velat ge er en del fakta. 

Förhoppningsvis behöver ni i fort¬ 


sättningen inte känna er helt borta när 
era tekniskt intresserade kompisar bör¬ 
jar prata om halvledare, integrerade 
kretsar och chips. 
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”robot”, och fotografier av ENTAC. 
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ter Reader’s Guide to Periodical Litte- 
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läsa i ”Populär Electronics” och ”Po¬ 
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ett gott bakgrundsmaterial som ett gott 
skratt. 


Tekniska begrepp 
och fakta 

Bi-polar transistor 

En transistor som framställts att 
sammanfoga tre skikt, varav det 
mittersta är positivt dopat, medan 
de två yttre är negativt dopade, eller 
vice versa. 

CAD (Computer Aided Design) 
Används som hjälpmdel för att 
designa och testa integrerade kret¬ 
sar. Detta möjliggörs bl a genom 
att jämföra data angående ett nytt 
chip’s funktion med information 
från gamla kretsar, som finns lagra¬ 
de i en databas. 

Chip 

Smeknamn för en integrerad krets, 
som mönstrats på en liten bit kisel. 
Ett svenskt, men sällan använt ord 
är bricka. 

Diffusionshammare 

En värmeugn med hög temperatur 
används vid chipsframställning. 
Där diffunderar dopämnen in vissa 
utvalda delar av kretsmönstret för 
att få kislet halvledande. 

DIL (Dula-In-Line) 

Den kapsel som chipet sitter monte¬ 
rat i liknar närmast en tusenfoting i 
metall. Benen står i två rader, varav 
namnet DIL. Denna går under DIL- 
kapsel och tillverkas i plast eller ke¬ 
ramik. 

Dopning 

Process, där utvalda störämnen 
(kallas dopämnen) såsom fosfor, 


bor och arsenik, tillförs ett rent ma¬ 
terial som kisel eller germanium, 
för att skapa en halvledare. 

IC (Integrerad Circuit) 

På svenska: integrerad ( = sam¬ 
manslagen) krets. Här avses en ki- 
selbricka med ett pålagt, diffunde- 
rat kretsmönster. I Sverige används 
oftast ordet ”IC-krets” för DIL- 
kapsel plus chip, ihopmonterade. 
Ibland används även ”DIL- 
kapsel”, ”krets” eller ”kapsel” för 
samma sak. Även monolitkrets 
(monolit = en sten, dvs kiselbit i 
detta fall) förekommer. 

Jonimplantation 

En mycket exakt metod för att infö¬ 
ra dopämnen i kislet. Enstaka joner 
”skjuts” in i kislet under noggrant 
kontrollerade former. 

LSI (Large Scale Integration) 
Betecknar IC-kretsar med 40 000 
till 100 000 transistorer. 

Mikroprocessor 

En IC-krets, avsedd för att utföra 
kommandon och göra beräkningar. 

MOSFET (Metal Oxide Semicon- 
ductor Field Effect Transistor) 

En transistor som formats genom 
att skapa ”öar” av negativt och po¬ 
sitivt dopade områden. Dessa före¬ 
nas genom en kanal av kiseldioxid 
med ett metallager ovanpå. Genom 
att lägga en spänning på metallen 
kommer ström att flyta i kanalen 
nästan proportionellt mot den på¬ 
lagda spänningen. 


Fotomask 

Används i den fotolitografiska pro¬ 
cessen vid chipframställning. Den 
skyddar (maskar av) de områden 
som inte bör exponeras, så att de se¬ 
nare kan etsas. 

Planarprocessen 

En vanlig framställningsprocess för 
integrerade kretsar. Kiselskivan be¬ 
läggs med ett tunt lager av kisel¬ 
dioxid, som sedan mönstras med 
fotolitografisk teknik, för att friläg¬ 
ga vissa ytor, där dopämnen förs in. 

Plasma-etsning 

En del i framställningsprocessen. 
Efter det att en skiva har genomgått 
den fotolitografiska delen så etsas 
vissa ytor med hjälp av en exiterad 
kemisk ånga, som kallas plasma. 

Retikel 

Ett fotonegativ av ett lager av kret¬ 
sen. Retiklar vid MOS Technology 
Inc, görs på glas som beläggs med 
en ljuskänslig emulsion. Storleken 
är cirka tio gånger större än den 
slutgiltiga kretsen. 

Halvledare 

Ett material som är en sämre elek¬ 
trisk ledare än koppar, men bättre 
än glas. En halvledares elektriska 
egenskaper kan ändras för att till¬ 
fredsställa olika behov. På engels¬ 
ka: semi-conductor. 

Kisel 

Ett ämne som används i ren kristal¬ 
lisk form som grundmaterial för 
många typer av integrerade kretsar. 
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På engelska: Silicon. Därav det kän¬ 
da namnet Silicon Valley. 

Sincap 

Den sista skyddande hinnan över en 
färdig kiselskiva. Hinnan består av 
kiselnitrid, som skyddar mot meka¬ 
nisk och kemisk påverkan. 

Solid State 

Elektriska signaler och funktioner 
(t ex switching) sker i ett helt fast 
medium, det vill säga, ett chip av ki- 
sel. 

Transistor 

En halvledarkomponent som funge¬ 
rar antingen som förstärkare eller 
som strömswitch. 

VLSI (Very Large Scale Integra¬ 
tion) 

Integrerade kretsar som rymmer 
mer än 100 000 transistorer. 

Skiva 

En tunn skiva av kisel, på vilken 
man mönstrar några hundra likada¬ 
na chips. En skiva har en typisk 
storlek på fem tum. På engelska: 
wafer. 

Yield (utbyte) 

Andel fungerande kretsar av totalt 
antal framställda. Typiskt värde 
kan vara 50 procent. Alla fabrikan¬ 
ter är mycket förtegna om hur bra 
yield de har. 


Viktigt årtal i 
mikrodatorns historia 

1642 

En utväxlad additionsmaskin upp¬ 
fanns av den franske matematikern 
Blaise Pascal (endast 19 år gam¬ 
mal). Gottfrid Leibniz förbättrade 
konstruktionen senare. 

1820 

”Analysmaskinen” konstruerades 
av Charles Babbage. Den hade ett 
minne som kunde hålla 1.50 num¬ 
mer och en ”kvarn” för att utföra 
aritmetiska operationer. Han före¬ 
slog att data skulle matas in via hål¬ 


kort, liknande de som användes i de 
för den tiden avancerade vävmaski¬ 
nerna. Trots att analysmaskinen var 
för mekaniskt avancerad för att 
kunna konstrueras, så räknas Bab¬ 
bage fortfarande som datorålderns 
fader. 

1880 

Ett snabbt hålkortsbaserat datasy¬ 
stem uppfanns av Herman Holle¬ 
rith för att hjälpa de amerikanska 
myndigheterna vid folkräkningen 
1880. Han banade vägen för elek¬ 
tronisk databehandling. 

1884 

”Comptometer Business Machine” 
byggdes av Dorr E Felt med hjälp 
av ???skruvar, gummiband och en 
makaronilåda i tr. Den klarade 
multiplikation och division för all¬ 
mänt bruk, och blev till sist en av de 
mest betydande kontorsmaskinerna 
vid 1900-talets början. 

Tidigt 1900-tal 

Första bruket av kristall¬ 
radiomottagare. (Tidiga spetskon¬ 
takt dioder av halvledarmodell.) 

1902 

Elektronröret konstrueras av Amb- 
rose Flemming. 

1944 

Den första riktiga datamaskinen: 
Mark I från Harward. Mark I var 
en sifferkalkylator för allmänt bruk 
som utvecklats i samarbete med 
IBM. En av de konstruktörerna 
Howare Aiken, sade: ”Babbages 
dröm har förverkligats”. 

1945 

Den första elektroniska digitala da¬ 
torn EN1AC (Electronic Numerial 
Integrator and Calculator). Den 
vägde 30 ton, upptog ett rum på 
10x16 meter och innehöll 18 000 
rör. Det enda sättet att ändra pro¬ 
grammet var att koppla om ledning¬ 
arna. Konstruktörerna trodde att 
fyra sådana maskiner skulle räcka 
för hela USA’s samlade behov av 
datorkraft för beräkningar. 

EDVAC (Electronic Discrete Va- 
riable Automatic Calculator) intro¬ 
ducerades av John von Neuman vid 
Princeton-universitetet. EDVAC 


var den första datorn med switchar 
av on-off-typ för att representera 
instruktioner och data, samt att låta 
både data och program att lagras i 
minnet. 

1947 

Den första kommersiella halvledar- 
komponenten — bipolartransistorn 
— utvecklas av William Shockley, 
Walter Brattain och John Bardeen 
vid Bell-laboratorierna. 

1951 

Tryckta kretsar utvecklas av Danho 
och Abrahamsson vid USA’s sig¬ 
naltrupper. 

Det första kärnminnet patenteras 
av Jay Forrester. Detta innebär 
snabb tillgång (access) på data och 
möjligheter att lagra stora informa¬ 
tionsmängder. 

1952 

Genombrott för framställning av 
integrerade kretsar nåddes av G N 
A Dummer vid Royal Rader Estab- 
lishment i England. 

1955 

De första framställda och testade 
fälteffekttransistorerna. Osäker 
framställningsteknik förhindrade 
massproduktion. 

1956 

Första datorn för självbygge släpp¬ 
tes ut av Heath Company. Priset 
var USD 700. 

1957 

Planarprocessen utvecklas av Ro¬ 
bert Noyce och Gordon Moore, vid 
Fairchild Semiconductor. Grunden 
hade lagts av Frosch och Derrick 
m fl genom arbeten vid Bell- 
laboratorierna. 

1959 

Utveckling av integrerade kretsar i 
form av chip vid Fairchild Semicon¬ 
ductor och Texas Instruments. 

1961 

Robert Noyce belönades med pa¬ 
tent för den integrerade kretsen. 
Händelsen undgick världens ögon. 

1962 

Första fungerande fabrikstillverka- 
de MOSFET-transistorn (Metal 
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Oxide Field Effect Transistor) och 
utveckling av integrerade kretsar av 
MOS-typ). 

1967 

De största problemen med att fram¬ 
ställa MOSFET-transistorer löses, 
vilket resulterar i ökat processutby¬ 
te och sänkta kostnader. 

1968 

Först RAM-minnet av MOS-typ 
med plats för 64 till 256 bitar. 

1970 

Första kalkylatorchipen av MOS- 
typ. Första 1-kbit (ungefär 128 by¬ 
tes) fullt avkodade RAM-minnet 
presenterades. 

1971 

Första CPU på ett chip utvecklas av 


Ted Hoff vid Intel. Detta jämnade 
vägen för de första mikrodatorerna 
som kom kort därefter. 

1972 

Första populära artikeln om mikro¬ 
datorer kom i Business Week den 12 
maj; ”Microcomputers aim at a hu- 
ge new market”. 

1970 

Mikroprocessorn 6502 utvecklas av 
MOS Technology Inc. 

1975 

Commodore köper MOS Technolo¬ 
gy Inc. 

1977 

De första PET-datorerna släpps ut 
på marknaden med 8k RAM- 
minne. 


1980 

Förbättrade framställningsproces- 
ser möjliggör tillverkning av chips 
med mer än 60 000 transistorer. 

1981 

Den första billiga och helt komplet¬ 
ta hemdatorn, VIC 20, introduceras 
av Commodore. 

1982 

Commodore 64, med fler funktio¬ 
ner än många dyra kontorssystem, 
släpps till ett lågt pris. 

1983 

Mikrodatorer blir billiga nog att va¬ 
ra ”var mans ägo”, och lika vanliga 
som många andra hushållsprylar. 

1984 

Det bästa återstår ännu att se. 






ALLT I ETT NÖTSKAL 

FÖR DIG MED VIC-20, diskdrive och printer. Lätt, snabbt och säkert 
för register, utskrifter och egna funktioner. NUTSHELL för 195 KR. 
För mer information, skicka returkuvert med din adress o frimärke till 
PROPLAN, Abborregatan 7, 421 58 V Frölunda 


Skydda datorn mot smuts och damm 

Beställ våra huvar i smidig galon. VIC 20/64 — 60 kr, VIC 1541 (Flop- 
pydisc) — 60 kr, VIC Bandstation — 35 kr. Alla tre, endast 140 kr. 
Porto tillkommer ordern. Finns i färgerna: vit, svart, klarblå, marin¬ 
blå, vinröd, klarröd och olivgrön. Beställ eller begär information. 
LC Gruppen, Norrlandsgatan 3, 752 29 Uppsala 
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Assemblerskolan 


Då var det dags igen för lite assem- 
blerprogrammering. Från och med 
detta nummer så kommer jag, Åke, att 
ensam svara för denna serie. Jag hop¬ 
pas att detta inte skall innebära några 
negativa konsekvenser för serien, men 
måste direkt konstatera att eftersom 
jag inte har tillgång till en 64’a så mås¬ 
te alla programexempel fortsättnings¬ 
vis vara inriktade på ”lillebror” 
vic-20. Programexemplen kommer 
dock att ligga med början på S 1200 
och detta betyder att även Du som har 
en 64’a kan köra dessa i de flesta fall. 
När det är uppenbart att ett exempel 
inte går, eller snarare inte fungerar på 
64’an, så kommer jag att påpeka detta. 
För måga kan kanske detta att samma 
maskinkodsprogram kan köras på 
vic-20 och vic-64 verka en aning kon¬ 
stigt då det sitter två olika processorer i 
de två. Den ena heter 30 6502 (i vic- 
20’s fall) och den andra 6510. Sanning¬ 
en är att det inte är några skillnader 
när det gäller maskinkodsprogramme- 
ring mellan dem. 

6510 har dock de tre lägsta adresser¬ 
na på sida noll ockuperad av register 
för 1/0 port som ingår i chipet. Dvs 
det man bör titta närmare på när man 
vill konvertera ett program från 
6502’an till 6510’an är de adresseringar 
som görs på ”zero-page” adresserna 
S00 — S02 då dessa i ett normalt 6502 
system är RAM. I denna serie så kom¬ 
mer vi att i möjligaste mån att försöka 
undvika dessa minnespositioner. 

Då kastar vi oss på själva program¬ 
merandet. 

1 den senaste artikeln så tittade vi på 
hur man laddade ackumulatorn på 
några olika sätt. I detta nummer så 
skall vi kolla hur vi får in data i de s k 
indexregistren samt hur vi ”kastar” ut 
denna information till minnet igen. Vi 
lärde oss tre adresseringsmeoder i för¬ 
ra avsnittet nämligen Immediate, zero- 
page och absolut. För informationens 
skull kan jag nämna att det existerar 13 
st totalt, men att vi så här till en början 
begränsar oss till dessa tre och berör de 
återstående när vi får användning för 
dem. 

Att ladda indexregistren med data är 
inte svårare än att ladda ackumula¬ 
torn. De mnenomics vi använder oss 


av är 
LDX 
och 
LDY 

där LDX säger att vi skall ladda X- 
registret med data och LDY är motsva¬ 
rande instruktion för att ta in till Y- 
registret. Låt oss nu plocka fram ma- 
skinspråksmonitorn och slå in följande 
rad 

. : A2 10 A6 C0 AE 
. : 0005 00 20 A0 10 A4 
. : 120A C0 AC 00 20 00 

För att slå in raderna så skriv först 
M 1200 <RETURN> 
så sköter monitorn om att lägga in 
”nuffrorna” i minnet, och ger dig au¬ 
tomatiskt en indikering på i vilken ad¬ 
ress Du håller på att ”greja” med. När 
alla tre raderna är inskrivna så slår Du 
return två ggr och vipps så är Du ute i 
monitorns kontrollslinga. 

Skriv nu 

D 1200 120E (glöm ej mellanslagen) 
så får Du se hur den MASKINKOD 
Du nyss slog in ser ut i sin ASSEMB- 
LERFORM. Om du har slagit in det 
hela riktigt (och tryckfelsnisse har hållt 
sig undan) så bör det se ut så här: 

. , 1200 LDX # S10 

. , 1202 LDX SCO 

. , 1204 LDX $2000 

. , 1207 LDY # 10 

. , 1209 LDY SCO 

. , 120B LDY $2000 

. , 120E BRK 

Detta program !!! uträttar inte så 
mycket men du kan ju ändå skriva 
G 1200 

för att se vad som händer. När Du allt¬ 
så programmet och när detta når BRK 
instruktionen så hamnar vi i Monitorn 
och registerinnehållei i processorn 
skrivs ut. I fallet V1CMON så bör det 
se ut ungefär så här: 

B* PC SR AC XR YR SP 

.; 120E Bl 00 FF FF F6 

Det är bara kolumnen XR och YR 
som vi är intresserade av och har Du 
fått något annat än SFF i dessa kolum¬ 
ner så beror det helt enkelt på att min- 


nespositionen $2000 innehåller något 
annat än $FF (den nyfikne rackaren 
kan ju skriva M 2000 <Return> och 
se om det stämmer med det som ligger i 
X och Y registren). 

Från det Du slog in ovan kan Du lätt 
kontrollera vilken OPCODE som 
LDX och LDY har i de olika adresse- 
ringsmoderna. För den late så listar vi 
dessa nedan 


LDX Immediate 

$A2 

LDX Zero-page 

$A6 

LDX Absolut 

$AE 

LDY Immediate 

$A0 

LDY Zero-page 

$A4 

LDY Absolut 

$AC 

I slutet av denna artikel så hittar Du 


tabell 1 som förutom en beskrivning av 
varje MNEMONICS ger information 
om den tid det tar att utföra varje in¬ 
struktion, antal byten den kräver och 
vilka adressmoder som för den aktuel¬ 
la instruktionen. Bekymra dig inte än¬ 
nu över de adressmoder som vi inte har 
berört, dessa skall vi titta på i sinom 
tid. 

Jag tror inte att vi behöver gå ige¬ 
nom vad LDX och LDY gör förutom 
det vi redan diskuterat, eftersom de 
har fullständigt analog funktion med 
LDA som vi beskrev i förra artikeln. 
Låt oss istället gå vidare och titta på 
hur man lägger ut data från ett register 
till en minnesposition. För detta har vi 
tre instruktioner: 

STA ”STore Ackumulator in memory” 
= Lagra ackumulator i minne. 

STX ”STore X-register in memory” 

= Lagra X-register i minne. 

STY ”STore Y-register in memory” 

= Lagra Y-register i minne. 

Vad var och en av dessa åstadkom¬ 
mer är väl kanske klart men låt oss än¬ 
då titta lite närmare på STA 
(STX/STY är helt analoga med STA). 

När vi skriver t ex 
STA $2000 

så tar processorn innehållet i ackumu¬ 
latorn och flyttar det till minnescell 
$2000. Man måste nu fråga sig VAD 
LIGGER I ACKUMULATORN EF¬ 
TER DET ATT INSTRUKTIONEN 
HAR EXIKVERATS (körts)? 
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Låt oss studera detta genom att slå 
in följande lilla programsnutt. 

1200 LDA # $0F Ladda ackumulatorn 
med $0F. 

1202 STA $2000 Lagra ackumulatorns 
innehåll i $2000, d v s ($2000). 

1205 BRK Klart! Gå tillbaks till 

monitor. 

(Om du inte vet hur Du skall slå in 
detta så se föregående artikel, i fort¬ 
sättningen förutsätter jag att du kan 
A-kommandot på din monitor). 

Ta nu och kör detta program. (G 
1200 <RETURN>) 

När programmet är kört så bör Du 
få något i den här stilen på skärmen: 

B * PC SR AC XR YR SP 
.; 1205 31 OF 63 00 F6 

Under kolumn AC så ser Du att vårt 
$OF ligger. (Bekymra dig inte om dom 
andra kolumnerna dom är med största 
säkerhet inte desamma på din dator). 

Detta betyder att SOF fortfarande 
ligger kvar i ackumulatorn efter det att 
vi har kört 
STA S2000 

Vi kan alltså dra slutsatsen att STA 
KOPIERAR ackumulatorns innehåll 
ned till den minnesposition som vi vill 
lagra dess innehåll i. Dvs vi förstör 
ingen data i våra register genom en dy¬ 
lik instruktion. (Den nyfikne kollar 
lämpligen med hjälp av M kommandot 
att SOF verkligen ligger i $2000). 

Denna egenskap är något som gäller 
generellt för alla instruktioner och är 
mycket viktig att notera. Instruktio¬ 
nerna verkar på ett register eller en 
minnesposition men de verkar på ett 
sådant sätt att de ej förstör det tidigare 
datainnehålet. Naturligtvis är detta 
sant men man måste också komma 
ihåg att man t ex med 
LDA $20 

ersätter det som tidigare låg i ackumu¬ 
latorn med innehållet i minnesposition 
$20 men att innehållet i $20, vad det nu 
än var, blir oförändrat av operationen. 

STX och STY har exakt samma 
funktion som STA (de lagrar naturligt- 
vis(x) respektive(y) och de adressmo¬ 
der som existerar för de tre hittar Du 
som vanligt i tabell 1. Obsevera dock 
att den adressmod som vi kallar 1M- 
MED1ATE in-te finns här. Den skulle 
ju vara ganska meningslös också i det¬ 
ta fall eftersom den kräver att den data 
den skall verka på ligger efter opco- 
den. Låt oss nu återigen titta på ett litet 


och ganska ”löjligt” program exempel 
där vi använder oss av det vi har lärt 
oss. 

Uppgiften är så enkel som att skriva 
VIC på skärmen. Detta skulle vi kunna 
göra genom att lägga några byte i min¬ 
net på ”Vicke” och sedan fylla på med 
färg. 1 själva operativsystemet finns 
dock en SUBRUTIN som sköter detta 
åt oss och som har startadress SFFD2 
(gäller även 64’an). 

Genom att anropa denna subrutin så 
kan vi få det tecken som ligger i acku¬ 
mulatorn (vi-d anropet) att printas på 
skärmen. För att anropa en subrutin så 
använder vi en mnemonic på formen 
JSR. Vi bekymrar oss inte nu för hur 
denna fungerar utan spar detta till ett 
senare tillfälle. Vi måste dock vet att 
efter det att subrutinen har körts så 
fortsätter programmet med den in¬ 
struktion som ligger efter JSR. Den ru¬ 
tin som ligger på SFFD2 kräver att det 
tecken som ligger i ackumulatorn är 
kodat i den s k ASCII-koden. Hur 
denna kod ser ut kan Du se i tabell 2. 

Från denna tabell så kontrollerar vi 
vilka koder som behövs för att skriva 

”VIC” 

”V” = $56 

”1” = $49 

”C” = $43 

1200 LDA # $56 

; Ta in koden för ”V”. 

1202 JSR $FFD2 
; Printa ”V” på skärmen. 

1205 LDA * $49 
; Ta in koden för ”1”. 

1207 JSR $FFD2 
; Printa ”1” på skärmen. 

120A LDA * $43 
; Ta in koden för ”C”. 

120C JSR $FFD2 
; Printa ”C” på skärmen. 
120FBRK ; Klart 

Kör programmet och ”abracadab- 
ra” så skrivs ”VIC” ut på skärmen. 
Jag rekommenderar att Du stannar till 
här och skriver ut egna saker på skär¬ 
men med hjälp av den teknik som vi 
använt i programmet ovan. Man måste 
direkt konstatera att det finns betydligt 
bättre sätt att skriva ut en sträng på 
skärmen, (en sträng är en följd av 
bokstäver,) och inom sinom tid så skall 
vi gå igenom även sådana metoder. 
Något annat Du absolut inte skall ta 
efter är mitt sätt att kommentera pro¬ 
gramraderna. Kommentarerna skall 
beskriva hur PROGRAMMET funge¬ 



rar inte hur ENSKILDA INSTRUK¬ 
TIONER fungerar för man får förut¬ 
sätta att om någon annan skall läsa en 
assemblerlistning så är denne någon in¬ 
satt i assemblerprogrammering. Som 
du förstår så kan man lätt bli irriterad 
på att i en och samma programlistning 
få lära sig hur LDA fungerar på var- 
annnan rad. Jag däremot har fått dis- 
pans av mig själv för att riktigt tjata in 
instruktionerna i huvudet på er som 
följder denna serie. 

Något som också varmt rekommen¬ 
deras för alla programexempel är att 
använda W-kommandot på din moni¬ 
tor och stega dig igenom programmet 
för att följa exikveringens gång. HES- 
MON har en unik egenskap i denna 
mod som möjliggör att man hela tiden 
följer registerinnehållet. Tyvärr saknas 
denna egenskap på VICMON men 
man kan ju istället närsomhelst avbry¬ 
ta stegningen och kontrollera register¬ 
innehållet med R-kommandot. 

Låt oss nu titta på ett par instruktio¬ 
ner till. 

Något som skulle vara mycket an¬ 
vändbart vore att kunna överföra data 
från ett register till ett annat. På 
6502’an (6510) så finns fyra instruktio¬ 
ner för att utföra detta. 

TAX ”Transfer akumulator to 
X-register” = kopiera (A) till X-register. 
TAY ”Transfer akumulator to 
Y-register” = kopiera (A) till Y-register. 
TAY ”Transfer X-register to 
Akumulator” = kopiera (X) till 
akumulatorn. 

TYA ”Transfer Y-register to 
Akamulator” = kopiera (Y) till 
akumulatorn. 

Kom ihåg att (X) betyder att det är 
innehållet som avses, i detta fall är det 
alltså innehållet i X-registret. 

Vad dessa instruktioner gör är alltså 
bara att kopiera över innehållet från 
ett register till ett annat. Detta kan va¬ 
ra speciellt lämpligt när man t ex vill 
ladda in data till ett av indexregistren 
med en adressmod som bara existerar 
för LDA (se tabell 1). Det händer 
också relativt ofta att man behöver 
lagra data temporärt i ett av indexre¬ 
gistren medan man jobbar med annan 
data i akumulatorn. Vi kommer att se 
många fler exempel på detta längre 
fram. För att se hur instruktionerna 
fungerar så slår vi in nedanstående 
program. 
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1200 LDA # $41 
; Ta in koden för ”A’. 

1202 LDX # $42 
; Ta in koden för ”B”. 

1204 LDY # S43 
; Ta in koden för ”C”. 

1206 JSRSFFD2 
; Skriv ut ”A” på skärmen. 
1209 TXA 
; (X)—A 
120A JSR 

; Skriv ut ”B” på skärmen. 
120D TY A 

; (Y) — A 
120E JSRSFFD2 
; Skriv ut ”C” på skärmen. 
1211 BRK 
; Klart! 


Vad programmet gör och hur det 
fungerar behöver väl knappast förtyd¬ 
ligas men det finns en viktig egenskap 
hos denna subrutin (FFD2) som måste 
noteras. Tänk dig att det program som 
vi skrev ovan skulle användas som en 
subrutin. Varje gång vi anropade den¬ 
na rutin så skulle vi då få ”ABC” ut¬ 
skrivet på skärmen. Eftersom vår rutin 
använder både ackumulatorn och de 
två indexregistren så sklle den data 
som vi hade i dessa innan vi anropade 
subrutinen försvinna när vi återvän¬ 
der. Som Du ser ovan så förstörs inte 
denna data av ”print subrutinen”. 
Detta betyder bara att denna rutin spar 
undan indexregistrens innehåll när vi 
kallar på den och sedan åter lägger till¬ 
baks dessa innan den återvänder till 


vårt program. I de flesta subrutiner så 
sker ej detta och man måste därför 
tänka på vad man har i sina register in¬ 
nan man anropar en viss rutin. I den 
programmerings handbok som finns 
att tillgå till VIC-20 kan Du hitta fler 
rutiner som Du kan anropa från dina 
egna program och som i mångt och 
mycket underlättar din programme¬ 
ring. Du kommer även att på annat 
ställe i denna tidning hitta sådana be¬ 
skrivningar under våren. Så mycket 
mer hinner vi nu inte med denna gång 
utan får träna och stå i till nästa må¬ 
nad då det kommer nya frächa instruk¬ 
tioner att svettas eller glädjas över. 


Mnemonic: LDX 

Beskrivning: X-registret laddas med data i en min- 
nesposition 


Flaggor: 



NV b D I z C 


Adressmod 

kod 

antal bytes 

cykler 

"X” 

exempel 

Absolut 

$ AE 

3 

4 

011 

LDX$2000 

Zero-page 

$ A6 

2 

3 

001 

LDX $13 

Immediate 

S A2 

2 

2 

000 

LDX # $FF 

Absolut, Y 

$ BE 

3 

4* 

111 

LDX$1200, Y 

Zero-page, Y 

$B6 

2 

4 

110 

LDX $03, Y 


* Dessa tar en cykel extra att utföra om page passeras. 


Objektkodens uppbyggnad för de olika adressmoderna: 


Objektbyte 


i 

0 

1 

X 

X 

X 

1 

0 . 

7 

6 

5 

4 

3 

2 I 

0 
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rapP° rt 


Mnemonic: 

Beskrivning: 

Flaggor: 


LDA 

Akumulatorn laddas med innehållet i 
en minnesposition. 


N V 


B D I Z C 


Adressmod 

kod 

antal bytes 

cykler 

”X” 

exempel 

Absolut 

$ AD 

3 

4 

011 

LDA S 2000 

Zero-page 

SAS 

2 

3 

001 

LDA $ 13 

Immediate 

S A9 

2 

2 

010 

LDA#SFF 

Absolut, X 

S BD 

3 

4* 

111 

LDA $ 1200.X 

Zero-page, X 

SB5 

2 

4 

101 

LDASCC.X 

Absolut, Y 

S B9 

3 

4* 

110 

LDA $ C000, Y 

(Indirekt, X) 

$ Al 

2 

6 

000 

LDA ($ 01,X) 

(Indirekt), Y 

S Bl 

2 

5* 

100 

LDA ($20), Y 


* Dessa tar en cykel extra att utföra om page passeras. 
Objektkodens uppbyggnad för de olika adressmoderna: 


Objektbyte 


l 

0 

1 

X 

X 

X 

oJT] 

7 

6 

5 

4 

3 

2 

1 0 


Mnemonic: 

Beskrivning: 

Flaggor: 


LDY 

Y-registret laddas med data i en min¬ 
nesposition. 


N V 


B D 1 Z C 


Adressmod 

kod 

antal bytes 

cykler 

”X” 

exempel 

Absolut 

$ AC 

3 

4 

011 

LDY $ 2000 

Zero-page 

$ A4 

2 

3 

001 

LDYSC0 

Immediate 

$ A0 

2 

2 

000 

LDY * SFF 

Absolut, X 

SBC 

3 

4* 

111 

LDY $ 1200, X 

Zero-page, X 

$ B4 

4 

4 

101 

LDY S 03, X 


* Dessa tar en cykel extra att utföra om page passeras. 
Objektkodens uppbyggnad för de olika adressmoderna: 


Objektbyte 


l 

0 

1 

X 

X 

X 

0 

0] 

7 

6 

5 

4 

3 

2 

1 

0 


bit 
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Mnemonic: STA 

Beskrivning: Akumulatorns innehåll kopieras till en 
minnesposition. 

Flaggor: 

NV B D l Z C 


Adressmod 

kod 

anial bytes 

cykler 

”X” 

exempel 

Absolut 

S8D 

3 

4 

011 

STA $ 2000 

Zero-page 

S 85 

2 

3 

001 

STA $ 0C 

Absolut, X 

S9D 

3 

5 

111 

STA $ 1200, X 

Zero-page, X 

$95 

2 

4 

101 

STA $C0, X 

Absolut, Y 

$99 

3 

5 

110 

STA $ 1300, Y 

(Indirekt, X) 

$81 

2 

6 

000 

STA ($01, X) 

(Indirekt), Y 

$91 

2 

6 

100 

STA (S 02), Y 


Objektkodens uppbyggnad för de olika adressmoderna: 


Objektbyte 


l 

0 

1 

X 

X 

X 

0 

L 0 

7 

6 

5 

4 

3 

2 

1 

0 


-«— bit 


Mnemonic: STX 

Beskrivning: X-registrets innehåll kopieras till en 
minnesposition. 


Flaggor: 

NV B D i z c 


Adressmod 

kod 

antal bytes 

cykler 

"X” 

exempel 

Absolut 

S8E 

3 

4 

01 

STX $ 2000 

Zero-page 

$86 

2 

3 

00 

STX $ C0 

Zero-page, Y 

$96 

2 

4 

10 

STX $01, Y 


Objektkodens uppbyggnad för de olika adressmoderna: 


Objektbyte 


i 

0 0 

X 

X 

1 

1 

0 

7 

6 5 

4 

3 

2 1 

0 


-«—bit 
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Mnemonic: STY 

Beskrivning: Y-registrets innehåll kopieras till en 
minnesposition. 

Flaggor: 

N V B D 1 Z C 


Adressmod 

kod 

antal bytes 

cykler 

"X” 

exempel 

Absolut 

$ 8C 

3 

4 

0 

$TYS2000 

Zero-page 

$84 

2 

3 

00 

$TYSC0 

Zero-page, X 

$94 

2 

4 

10 

$TYS02,X 


Objektkodens uppbyggnad för de olika adressmoderna: 


Objektbyte 


1 1 0 

0 

X 

X 

1 

0 

®l 

7 6 

5 

4 

3 

2 

I 

0 


— bit 


Mnemonic: TXA 

Beskrivning: Innehållet i X kopieras över 
till Akumulatorn. 


Flaggor: H] 

NV B D 1 Z C 


Adressmod 

kod 

antal bytes 

cykler 

”X" 

exempel 

Implied 

$8A 

1 

2 


TXA 


Objektkodens uppbyggnad för de olika adressmoderna: 


Objektbyte 


1 

0 

0 

0 

1 

0 

1 

7 

6 

5 

4 

3 

2 1 


•*— bit 
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Mnemonic: TY A 

Beskrivning: Innehållet i Y kopieras över 
till Akumulatorn. 


Flaggor: 



NV B D i z c 


Adressmod 

kod 

arual bytes 

cykler 

”X" 

exempel 

Implied 

$98 

1 

2 


TYA 


Objektkodens uppbyggnad för de olika adressmoderna: 


Objekt by te 


l 

0 

0 

1 

1 

0 | 0 0 

7 

6 

5 

4 

3 

2 1 0 


-*—bit 


Mnemonic: TAX 

Beskrivning: Innehållet i A kopieras över till 
X-registret. 


Flaggor: 



NV B D l Z C 


Adressmod 

kod 

antal bytes 

cykler 

"X” 

exempel 

Implied 

$AA 

1 

2 


TAX 


Objektkodens uppbyggnad för de olika adressmoderna: 


Objektbvte 


1 

0 

1 

0 

1 

0 

,j0 

7 

6 

5 

4 

3 

2 

1 0 
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Mnemonic: TAY 

Beskrivning: Innehållet i A kopieras över till 
Y-registret. 


Flaggor: 



NV B D l z C 


Adressmod 

kod 

antal bytes 

cykler 

”X” 

exempel 

Implied 

$A8 

1 

2 


TAY 


Objektkodens uppbyggnad för de olika adressmoderna: 


Objektbvte 


l 

0 

1 

0 

1 

0 

00 

7 

6 

5 

4 

3 

2 

1 0 


Tabell över ASCII-KOI) i BINÄR, OKTAL, DECIMAL och 
HEXADECIMAL representation. 


NUL 

0000000 

000 

000 

00 

0 

0110000 

060 

048 

30 

SOH 

0000001 

001 

001 

01 

1 

0110001 

061 

049 

31 

STX 

0000010 002 

002 

02 

2 

0110010 

062 

050 

32 

ETX 

00000 003 003 

03 

3 

0110011 

063 

051 

33 

EOT 

0000100 

004 

004 

04 

4 

0110100 

064 

052 

34 

ENQ 

0000101 

005 

005 

05 

5 

0110101 

065 

053 

35 

ACK 

0000110 

006 

006 

06 

6 

0110110 

066 

054 

36 

BEL 

0000111 

007 

007 

07 

7 

0110111 

067 

055 

37 

BS 

0001000 

010 

008 

08 

8 

0111000 

070 

056 

38 

HT 

0001001 

011 

009 

09 

9 

0111001 

071 

057 

39 

LF 

0001010 

012 

010 

OA 


0111010 

072 

058 

3A 

VT 

0001011 

013 

011 

OB 

* 

0111011 

073 

059 

3B 

FF 

0001100 

014 

012 

OC 


0111100 

074 

060 

3C 

CR 

0001101 

015 

013 

OD 

= 

0111101 

075 

061 

3D 

SO 

0001110 

016 

014 

OE 


0111110 

076 

062 

3E 

SI 

0001111 

017 

015 

OF 

? 

0111111 

077 

063 

3F 

DLE 

0010000 

020 

016 

10 


1000000 

100 

064 

40 

DC1 

0010001 

021 

017 

11 

A 

1000001 

101 

065 

41 

DC2 

0010010 

022 

018 

12 

B 

1000010 

102 

066 

42 

DC3 

0010011 

023 

019 

13 

<D 

1000011 

103 

067 


DC4 

0010100 

024 

020 

14 

D 

1000100 

104 

068 

44 

NAK 

0010101 

025 

021 

15 

E 

1000101 

105 

069 

45 

SYN 

0010110 

026 

022 

16 

F 

1000110 

106 

070 

46 

ET B 

00101 II 

027 

023 

17 

G 

1000111 

107 

071 

47 

CAN 

0011000 

030 

024 

18 

H 

1001000 

110 

072 

48 

EM 

0011001 

031 

025 

19 

I 

1001001 

111 

073 

49 

SUB 

0011010 

032 

026 

1A 

J 

1001010 

112 

074 

4A 


33 









































ESC 

0011011 

033 

027 

IB 

K 

1001011 

FS 

0011100 

034 

028 

1C 

L 

1001100 

GS 

0011101 

035 

029 

ID 

M 

1001101 

RS 

0011110 

036 

030 

1E 

N 

1001110 

US 

0011111 

037 

031 

IF 

O 

1001111 

SP 

0100000 

040 

032 

20 

P 

1010000 

| 

0100001 

041 

033 

21 

Q 

1010001 


0100010 

042 

034 

22 

R 

1010010 


0100011 

043 

035 

23 

T 

1010100 

% 

0100101 

045 

037 

25 

U 

1010101 

& 

0100110 

046 

038 

26 

V 

1010110 

9 

0100111 

047 

039 

27 

w 

1010111 

( 

0101000 

050 

040 

28 

X 

1011000 

) 

0101001 

051 

041 

29 

Y 

1011001 


0101010 

052 

042 

2A 

Z 

1011010 

+ 

0101011 

053 

043 

2B 

A 

1011011 


0101101 

055 

044 

2C 

Ö 

1011100 

_ 

0101101 

055 

045 

2D 

Å 

1011101 


01011110 056 046 

2E 


1011110 

/ 

0101111 

057 

047 

2F 

— 

1011111 


Fl 00000 

140 096 

60 




a 

1100001 

141 

097 

61 




b 

1100010 

147 098 

62 




c 

1100011 

143 

099 

63 




d 

1100100 

144 

100 

64 




e 

1100101 

145 

101 

65 




f 

1100110 

146 

102 

66 




g 

1100111 

147 

103 

67 




h 

1101000 

150 

104 

68 




i 

1101001 

151 

105 

69 




j 

1101010 

152 

106 

6A 




k 

1101011 

153 

107 

6B 




1 

1101100 

154 

108 

6C 




m 

1101101 

155 

109 

6D 




n 

1101110 

156 

110 

6E 




o 

1101111 

157 

111 

6F 




p 

1110000 

160 

112 

70 




q 

1110001 

161 

113 

71 




r 

1110010 

162 

114 

72 




s 

1110011 

163 

115 

73 




t 

1110100 

164 

116 

74 




u 

1110101 

165 

117 

75 




V 

1110110 

166 

118 

76 




w 

1110111 

167 

119 

77 




X 

1111000 

170 

120 

78 




y 

1111001 

171 

121 

79 




z 

1111010 

172 

122 

7A 




ä 

111101! 

173 

123 

7B 




ö 

1111100 

174 

124 

7C 




å 

1111101 

175 

125 

7D 





1111110 

176 

126 

7E 




DEL 

1111111 

177 

127 

7F 





113 

075 

4B 

114 

076 

4C 

115 

077 

4D 

116 

078 

4E 

117 

079 

4F 

120 

080 

50 

121 

081 

51 

122 

082 

52 

124 

084 

54 

125 

085 

55 

126 

086 

56 

127 

087 

57 

130 

088 

58 

131 

089 

59 

132 

090 

5A 

133 

091 

5B 

134 

092 

5C 

135 

093 

5D 

136 

094 

5E 

137 

095 

5F 


Förklaring av kontrolltecken i ASCII-kod 

NUL Null, or all zeros 
SOH Start of heading 
STX Start of text 
ETX End of text 
EOT End of transmission 
ENQ Enquiry 
ACK Acknowledge 
BEL Bell 
BS Backspace 
HT Horisontal tab 
LF Line feed 
VT Vertikal tab 
FF Form feed 
CR Carriage return 

50 Shiftout 

51 Shift in 

DLE Data link escape 

DC1 Device control 1 

DC2 Device control 2 

DC3 Device control 3 

DC4 Device control 4 

NAK Negative acknowledge 

SYN Synchronus idle 

ETB End of transmission block 

CAN Cancel 

EM End of medium 

SUB Substitute 

ESC Escape 

FS File separator 

GS Group separator 

RS Record separator 

US Unit separator 

SP Space 

DEL Delete 
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1 . 

2 . 

3. 


1 . 

2 . 

3. 


1 . 

2 . 

3. 


1 . 

2 . 

3. 


1 . 

2 . 

3. 



JELLY MONSTER VIC-1905 

1 631 860 Pelle Gustavsson, SUNDBYBERG 
763 650 Peter Johansson, LYCKEBY 
705 980 Anders Hellman, NOL 


PANIC 64 (Interceptor) 

1. 5 300 Torbjörn Alme’n, SJÖBO 

2. 4 200 Charlie Johansson, HANDEN 

3. 2 100 Dr Darnio 


RAT RACE VIC-1909 

101520 Pär-Olof Håkansson, BJÄRRED 
89 120 Martin Hedberg, SILJANSNÄS 

87 000 Niclas Andersson, ESKILSTUNA 

SUPERLANDER VIC-1907 

88 000 Fredrik Gustafzon, GNESTA 
86 000 Thomas Johansson, YSTAD 
77 700 Tomas Lundin, SKÖVDE 


GRIDRUNNER (LLamasoft) 

(Level 1-) 

1. 351820 Thomas Hartman, LULEÅ 

2. 260 120 Jöran Omark, ÄLVSBYN 

3. 94 180 Niklas Lindberg, VÄSTERVIK 


JUMPMAN (EPYX) 

(Grand loop) 

1. 46 740 Ola Hjalmarsson, UTANSJÖ 

2. 37 175 Torbjörn Ragnesjö, UPPSALA 


OMEGA RACE VIC-1924 

125 600 Jonas Ragnarsson, BORRBY 
105 100 Anders Ragnarsson, BORRBY 
23 000 Johan Kuuse, GRÅBO 

JUPITER LANDER VIC-1907 

139 000 Björn Lindman, HUDDINGE 
108 200 Dan Andersson, SÖDRA SANDBY 
74 900 Johan Harrysson, VRETA KLOSTER 


JUMPMAN JR (EPYX) 

(Valfri hastighet) 

1. 28 000 J. Aspengren, ATRIUM 

2. 14 600 P. Andersson, VALÅS 

3. 7 425 Lars Karlsson, MÖLNDAL 

DIG DUG (Atarisoft) 

1. 205 580 STUFFE 

2. 74 300 Joakim Lundberg, LINDOME 


SPELREKORD 

Vi skall försöka att hålla oss till kassettbaserade program 
för att de flesta har ju endast bandspelare. 

Var snälla och skicka in 'rutan’ och inte en massa spel 
med rekord på ett A4 med grannar, mormor, lilla syster, 
m m. 

Kopiera gärna eller skriv av 'rutan' och skicka in fler 
små i stället. 

SPELREDAKTÖREN 

C.E.J 


□ VIC20 □ VIC64 Datum 

Namn. 

Adress. 

Postnr, Postadress. 

Spel. 

Erhållna poäng. 

Intygas av målsman eller annan myndig person 
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Tillverka egna kommandon 


till VIC-20! 

Sound, Play, Hires, Plot, Draw etc. Ja, hur många gånger har man 
inte önskat att dessa kommandon fanns på VIC-en? Och inte bara 
dessa kommandon, utan många, många fler. Men hur är det nu, 
kan man på något sätt fixa till sig dessa kommandon utan att lägga 
ut några pengar? 


Svar JA. Detta går att ordna (relativt 
enkelt). För att kunna göra det måste 
man ha lite färdighet i maskinspråks- 
programmering. Hur man program¬ 
merar in sina kommandon bygger på 
ungefär samma princip som interrupt- 
programmering, som vi har beskrivit 
på annan plats i VIC-rapport. 

Med normal BASIC-exekvering går 
det till så här: 

1 Datorn exekverar RUN 

2 Hämta adress till BASIC-tolk 

3 Hoppa till BASIC-tolken 

4 Ta in BASIC-kommando (eller ka¬ 
raktär/tecken typ A—0) 

5 Utför kommandot 

6 Hoppa till ”2”. 

FIGUR 1 

Adressen till BASIC-tolken ligger i en 
vektor med namnet ”Start New BA¬ 
SIC Code Link”. Denna vektor är pla¬ 
cerad i adresserna 776,777. De innehål¬ 
ler i vanliga fall värdena 199 och 228, 
vilka får datorn att hoppa till hex 
SC7E4. Med start på $C7E4 ligger den 
vanliga BASIC-tolken. Den ligger i 
ROM, så den kan man ju inte gå in i 
och ändra. 

Vad vi behöver göra är att ändra ad¬ 
ressen till BASIC-tolken i vektorn så, 
att den ”pekar” till en ny BASIC-tolk 
någonstans i RAM-minnet. När nu da¬ 
torn kommer till punkt 2 i figur 1 så 
laddar den då in adressen som pekar 
på starten till din BASIC-tolk. På 
punkt 3 hoppar den dit. 

När datorn kommer till din BASIC- 
tolk så ska den först läsa in så många 
karaktärer/tecken, som ditt komman¬ 
do innehåller (alltså bara kommandot, 
inte ev. parametrar). Inläsningen av 
tecken sker genom ett subrutinhopp till 
hex S0073, där en s k Charget-rutin 
ligger. Denna ligger i Zero-Page och 
ser ut enligt följande: 


0073 INC $7A Ökad lågbyte 

(Basic Pekare) 

0075 BND $0079 Även högbyte? 

Nej, >0079 

0077 INC $7B Ja, öka högbyte 

0079 LDA $1001 Ladda BASIC- 

tecken 

007C CMP # $3A Jämför med 

kolon (:) 

007E BCS $008A A> = kolon, 

hoppa till RTS 

0080 CMP #$20 Mellanslag? 

0082 BEQ $0073 Ja, hämta nästa 

tecken (skippa mellanslag) 

0084 SEC Följande fyra in- 

0085 SBC #$30 struktioner sätter 

0087 SEC flaggor enligt 

0088 SBC #$D0 nedan. 

008A RTS 

FIGUR 2 Charget-rutin 
När denna rutin anropats kommer 
flaggorna att ha följande betydelse: 
Carry-flaggan är ”clear” (C = 0) om A 
innehåller en siffra, annars är den 
”set” (C = 1). Zero-flaggan är ”set” 
(Z= 1) om A innehåller ett kolon eller 
en nolla, annars är den ”clear” 
(Z = 0). 

Ett hopp till denna rutin gör, att 
BASIC-tecken placeras i ackumula¬ 
torn. Sedan skall tecknet jämföras 
med ditt kommando. Om tecknet över¬ 
huvud taget hör till ditt kommando, då 
får du räkna ner BASIC-pekaren (se 
FIGUR 3) till adressen den hade innan 
du hoppade till den och sedan hoppa 
till den vanliga BASIC-tolken. Efter¬ 
som det du tittat på kanske är något 
annat kommando eller tecken som där¬ 
för måste tolkas av datorn. 

(i ram) 

DEC$7A 

BNES02 

DEC$7B 

RTS 

FIGUR 3 Nedräkning 


av Thomas Wernersson 

När nu kommandot tolkats så skall du 
ta in eventuella parametrar och kolla 
så att de överensstämmer till värde och 
antal. Detta jobb kallas för Syntax¬ 
kontroll och till din hjälp har du ett 
200-tal olika små subrutiner som sam¬ 
lats i ett ”bibliotek” från $C000— 
$EA36. De flesta går att använda gan¬ 
ska enkelt, men vissa kan vara mer in¬ 
vecklade att hantera. Jag kan inte pre¬ 
sentera dem alla p g a att det skulle ta 
åtskilliga sidor. Det finns dock i den 
engelska boken ”VIC Revealed” en 
komplett lista över dem och en be¬ 
skrivning av de 36 viktigaste på sidor¬ 
na 71—88. 1 den kompletta listningen 
på ett PAUSE-kommando i slutet av 
denna artikel används inga av dessa s k 
KERNAL-rutiner då jag vill hålla tex¬ 
ten så lätt att förstå som möjligt — 
även för icke maskinspråksproffs. 

Efter att ha passerat Syntax-kon¬ 
trollen, skall din funktion exekveras. 
Parametrar bör ha lagrats på Zero- 
Page för att programmet skall gå fort¬ 
are och spara minne både i program- 
och variabelsammanhang. 

Under det att exekveringen av ditt 
kommando pågår så görs hela tiden in- 
terrupt, avbrott, därför skall du aldrig 
koppla ur interrupt med ”Interrupt di- 
sable”. Då kommer bl a klockan att 
stanna upp under tiden som din funkti¬ 
on ”körs”. Efter det att funktionen 
utförts så hoppar du till $67E4, vilket 
gör att datorn hoppar till den vanliga 
tolken och att det exekverande BASIC- 
programmet går vidare. 

För er, som läst min andra artikel 
om interrupt-programmering, är detta 
med vektor-programmering inte så 
främmande, eftersom det liknar inter¬ 
rupt ganska väl. Skillnaden är bara att 
interrupt orsakas regelbundet (normalt 
60 ggr/sek, alltså i takt med klockan) 
medan datorn endast hoppar till din 
rutin om den stöter på ett BASIC- 
tecken. 

Lägg märke till att ditt kommando 
lagras byte för byte i ASCII i BASIC- 
program, medan de ”riktiga” kom¬ 
mandona lagras som en enda byte. 
Den sägs få ett ”token”-värde (to- 
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ken = pant på engelska). 

VIC-20s och förresten alla CBM- 
datorers hårdvara (maskinvara) är 
mycket flexibel och genom att ändra i 
dess operativ-system kan du få en helt 
annorlunda maskin av din dator. Det 
finns inget som hindrar dig att göra en 
total ändring av din VIC-20 för att den 


skall kunna passa till just ditt använd¬ 
ningsområde. Du kanske vill ha en 80- 
teckens bildskärm, ändra 1/0 till stan¬ 
dard RS-232 m m. Det ena som behövs 
är en ändring av KERNAL-systemet. 
Flexibiliteten är en mycket värdefull 
funktion, skapad av VICs konstruktö¬ 
rer. 


Nu hoppas jag bara att jag förklarat 
detta tillräckligt väl att också du kan 
använda denna funktion hos din 
VIC-20. Se följande kompletta listning 
av ett ”PAUSE”-kommando med för¬ 
klaringar. 

Lycka till! 

Tomas Wernersson 


Förbättra kontakterna mellan 
användare — försäljare — hackers 


Ett starkt argument för val av dator, är att säljarna efter 
köpet kan erbjuda kunden service. Här skulle hackers kun¬ 
na vara till stor nytt. Om säljaren skulle kunna hjälpa hac¬ 
kers till att marknadsföra sig skulle en del av problemen 
för kunden vara lösta. 


Det stora företaget hade infört datori¬ 
seringar i sina rutiner. Efter inkör¬ 
ningsperioden så besökte systemeraren 
på datorföretaget kunden för att kont¬ 
rollera om allt var som det skulle. Det 
var inga som helst problem. På vägen 
ut så råkade han titta in i ett kopie- 
ringsrum. Där stod det en flicka och 
kopierade datalistor för brinnande li¬ 
vet. Systemeraren frågade varför? — 
”Vi får bara en lista, men vi behöver 
fyra” svarade hon. Därför måste vi 
kopiera den. Visserligen hade de sagt 
till, men fått svaret av cheferna att det 
inte var något att göra åt det. Dator- 
körningen var tillräckligt dyr. 

Att fyrdubbla den bara för att det 
behövdes fyra listor. Det var ej att tän¬ 
ka på. Systemeraren ändrade lite i ut- 
skriftsprogrammet så det blev fyra lis¬ 
tor utskrivna. Kostnaden för detta var 
bara en bråkdel av vad det kostade att 
kopiera listor. 

Så är tyvärr hela datorbranschen i 
dag. 

Om en egen företagare irrar in i en 
datoraffär, så berättar säljaren hur 
många tusen bitar det finns i datorn. 
Den stackars kunden bleknar vid tan¬ 
ken på hur mycket servicen kostar. 
Och om en enda bit går sönder. Kan 
han byta ut den själv då. 

Skärpning försäljare! Fråga kunden 
hur mycket denne betalar för bokfö¬ 
ringen per år. Ett troligt svar är 


20 000:— kronor. Berätta hur mycket 
ett bokföringsprogram på VIC-64 eller 
PET kostar. Sälj det sedan. Uppmana 
företagaren att återkomma efter köpet 
och berätta vad denne INTE är nöjd 
med. När kunden återkommer så kan 
du göra på tre sätt. 

1. Rycka på axlarna och beklaga. 

2. Hänvisa till det stora programme- 
ringsföretaget, så de får ändra i det 
befintliga programmet. Eller skriva 
ett nytt. Att de tar 500:— i timman, 
det är deras sak. 

3. Hänvisa till en hacker. 

Här kan en hacker göra stor nytta. 
Det kan gälla att förändra en utskrifts- 
rutin, poka in företagets firmamärke 
så det skrivs ut på fakturor och brev¬ 
papper. Eller göra ett helt nytt pro¬ 
gram. 


Detta är en helt ny marknad. Kun¬ 
den kommer knappast att lägga ner 
några större summor på att ändra 
programvaran. Alternativet är att låta 
bli. Så det är ingen risk att ”de stora” 
blir trampade på tårna. 

Hackern får riktiga uppgifter att ar¬ 
beta med. Dessutom en slant för be¬ 
sväret. Frågan är bara hur hackerna 
marknadsför sina tjänster. Här har 
försäljarna en stor uppgift att fylla. 
Kan HANDIC och säljarna erbjuda 
hjälp även efter köpet så är det ett 
starkt argument vid val av dator. För 
hackern är det svårt att marknadsföra 
sig. Det är få företagare som läser da¬ 
tortidningarna. Det bästa är att annon¬ 
sera i branchtidningar, eller tidningar 
som vänder sig direkt till egna företa¬ 
gare. Ett tips är att ta kontakt med fö¬ 
retagareföreningen där du bor. De kan 
ge dig tips om vad du skall göra. 

Lycka till. 

Skäftingebackens datorörnar 
Alf Olsson 
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MASKINSPRAKSLADDARE 
FÖR VIC-20 

Från vår flerfaldige medarbetare i Kungsbacka, Ingvar Wihlborg, 
kom följande bidrag, som underlättar tillvaron och minskar lättna¬ 
den i plånboken för alla som vill använda maskinspråk i sin pro¬ 
grammering på VIC-20. 


Adress 4608— 4620 = En s k ”Dummy Basic”. 

Adress 4621 —15871 = Area för dina ”rena” maskinspråksprogram. 

Adress 15872—24319 = Maskinspråksladdarens Basic-program. 
Adress 24320—24568= Plats för maskinspråkssubrutiner. 

Adress 24569—24575 = Används för programmet. 

Adress 673— 756 = Används av programmet. 


Maskinkodsladdare för 
VIC-20 

Denna artikel riktar sig till de VIC- 
rapport-läsare, som följer med i tid¬ 
ningens assemblerskola och som står i 
begrepp att pröva assemblerprogram- 
mering. Redovisat program underlät¬ 
tar dylik programmering och elimine¬ 
rar tidsödande skrivning av datsatser 
och tillhörande ”pokeningar”. 

Programmet gör inga anspråk på att 
i bland annat flexibilitet etc. kunna mä¬ 
ta sig med plug-in-kassetterna ”V1C- 
MON” och ”MIKRO”. Använder Du 
något av nämnda hjälpmedel, måste 
Du ganska snart expandera din VIC-20 
och även anskaffa någon typ av expan¬ 
sionsenhet. Hundralapparna i utlägg 
ökar då snabbt till tusenlappen. Redo¬ 
visat program förutsätter dock att din 
VIC expanderats med 16 K — en vid 
det här laget synnerligen vanlig förete¬ 
else — samt att Du kan offra en timme 
på inläsning och kassettlagring av- 
programmet. Bortsett från tidsåtgång¬ 
en, är den enda kostnad kassetten. Du 
kan nu göra dina första övningar i as- 
semblerprogrammering. Tröttnar Du 
på detta programspråk eller kanske in¬ 
te har tid eller lust att gå vidare, har 
Du i varje fall inte satsat stora pengar. 

Beskrivna maskinkodsladdare tjä¬ 
nar två syften. Du kan skriva rena ma¬ 
skinspråksprogram, vilka kan ”SAVE- 
as” och ”LOADas” samt startas med 
”RUN” precis som ett Basicprogram. 
Vidare kan Du göra maskinspråksruti- 
ner, som Du kanske önskar använda 
som subrutiner i Basicprogram. Vid 
första alternativet startar alla ma¬ 
skinprogram på adress S120D 
(dec.4621) och vid alternativ 2 väljer 
Du själv startadress. 

För att Du skall veta var i användar- 
minnet Du arbetar, får Du här en redo¬ 
visning av minnesuppdelningen. 


Inskrivning 
av programmet: 

Programmet är uppbyggt i två avsnitt. 
De båda avsnitten benämns ”PRE- 
MON” och ”MONITOR”. Skriv först 
in ”PRE-MON”, spara programmet 
och exekvera ”RUN”. Skriv därefter 
in ”MONITOR” och spara detta 
programavsnitt omedelbart efter 
”PRE-MON”. Du har nu ett accepta¬ 
belt hjälpprogram på kassett. Vid an¬ 
vändning laddas programmet med 
”LOAD” på sedvanligt sätt. ”RUN” 
exekveras efter inläsning av ”PRE- 
MON”. Ett nytt ”LOAD” läser in 
”MONITOR. 

För att underlätta tydandet av list- 
ningens grafiska symboler för cursor- 
förflyttningar etc. får Du här en sam¬ 
manställd förklaring av vissa textra¬ 
ders ”otydligheter”. 


Körning av programmet: 

För att programmet skall koda rätt 
MNEMC matar Du alltid in 
6502:ans MNEMCS som fyrställiga 
kodgrupper (ex.:LDAS) där fjärde 
tecknet i gruppen utgör kod för adres- 
seringsmode. Följande regler gäller i 
programmet: 

Operander inskrivs hexadecimalt. 
Bokstäver och siffror, som används i 
t ex textsträngar skrivs in som A B 1 2 
etc. För att underlätta vid just inskriv¬ 
ning av texter finns ”ny rad” (CR) på 
tecknet ”pil till vänster” samt mellan¬ 
slag (space) på tecknet ”pil upp”. Ka¬ 
nelbullen (snabel a) avslutar program¬ 
meringen. Inskrivning av MEM som 
MNEMC innebär förflyttning till an¬ 
nat minnesutrymme. MEM kan också 
användas som första instruktion, när 
Du vill göra programstart på annan 
adress än $120D. 


Rad nr 80= RVS OM BLACK 8 CURSOR LEFT 12 MELLANSLAG 
13CURS. LEFT. 

Rad nr 101 = RVS ON BLACK RVSOFFBLUE. 

Rad nr 103 = 2 CURSOR LEFT 2 MELLANSLAG 1 CURSOR UP 
1 CURSOR LEFT. 

12 MELLANSLAG 14 CURSOR LEFT 1 CURSOR UP. 
Rad nr 112 = RVS ON BLACK RVSOFFBLUE. 

Rad nr 403 = 4 CURSOR LEFT 3 MELLANSLAG 1 CURSOR UP. 

Rad nr 550= 8 MELLANSLAG 5 CURSOR LEFT. 

Rad nr 640= RVS ON BLACK RVSOFFBLUE. 

(Mellanslag = blanktecken eller ”spaces”). 
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Efter programstart med ”RUN” vi¬ 
sas följande text på skärmen: ”WAIT 
FOR LOAD1NG”. Maskinspråksruti- 
nerna i programmet ”POKEas”in. Ef¬ 
ter någon sekund visar skärmen följan¬ 
de utseende: 

OP/& HEX DEC 
$ADDR. mnemcs code 


120D 

Markören blinkar nu under ’M’ i 
MNEMCS och Du kan börja program¬ 
mera. I kolumnerna längst till höger 
skrivs hex. resp. dec. koderna för 
mnemcs och operander ut i reverserad 
skrift. Nästa adress visas automatiskt 
på nästa rad. Upptäcker Du felinmat¬ 
ning på rad du redan exekverat, skriver 
Du in kanelbullen. Närmast föregåen¬ 
de rad suddas ut. Du kan på detta sätt 
fortsätta raderingen uppåt. Skriver du 
mnemc som programmet inte förstår, 
skrivs ett frågetecken ut och Du kan 
skriva om värdet. 

Efter programmet färdigställts, 
skrivs en asterisk in och Du får upp en 
meny. Du kan nu disassemblera ditt 
program. Disassemblering kan stoppas 
med ”RUN/STOP” och fortsätter då 
Du så önskar med kommandot 
”CONT”. Vill Du stoppa för att göra 
korrigering, tryck på ”S”-tangenten. 


RELAT1VE& IMPL1ED 

ACCUMULATOR 

IMMED1ATE 

ZERO PAGE 

ZEROPAGE.Xe Y 

ABSOLUTE 

ABSOLUTE.X 

ABSOLUTE,Y 

1ND1RECT.X 

INDIRECT.Y 

JUMP 1NDIRECT 


Ett S-tecken visas och Du skriver nu in 
hexadressen för raden som skall änd¬ 
ras. En asterisk avslutar alla korrige¬ 
ringar och Du kan på nytt disassemble¬ 
ra. Vid inskrivning av ”MEM” visas 
också ett S-tecken i högerkant. På 
samma sätt som vid korrigering skriver 
Du in en ny adress och programmerar 
(assemblerar) som vanligt. 

Har Du valt ”SAVE ON TAPE” ur 
menyn, uppmanas Du ange ”end ad¬ 
ress + 1”. Vid inskrivning av denna 
adress blankas skärmen. Spara nu ditt 
maskinprogram genom att skriva 
”SAVE ”PROGRAMNAMN”. Vill 
Du återgå till att använda maskinpro- 
gramladdaren skriv SYS 697 och 


Reset knapp på maskinkods 


Hallå, alla ni assembler programmera¬ 
re som har tröttnat på ett er V1C-20 
”dyker” när ni exekverar era maskin¬ 
kods program. Har du en HESMON 
maskinkods monitor så ska det snart 
vara ordnat. Har du en annan monitor 
så ta och skruva isär den och kolla om 
det finns möjlighet att göra det som 
jag beskriver här nedan. 

Det hela går ut på att vi monterar en 
RESET-knapp i plug-in monitorn. Om 
då datorn har dykt så är det bara att 
trycka på denna knapp. Då kommer 
arbetsbiiden fram igen och om du dis- 
assemblerar märker du att program¬ 
met firms kvar! Det du behöver för att 
få denna suveräna funktion på din 
VIC-20, är en liten tryckkontakt och 
två små sladdar, 12—13 cm långa. 
Skruva nu isär monitorn och plocka ut 
det lilla gröna kretskortet. Sedan skru¬ 
var du ihop ”plug-in lådan” igen och 
borrar ett lagom stort hål i högra ”ga¬ 
veln”, för tryckkontakten. Ett alterna¬ 


tiv till borrning är att ta en rundfil och 
fila i de båda lådhalvorna. 

Sedan tar du det lilla gröna kretskor¬ 
tet och vänder det med 1C:kretsen ne¬ 
råt. Löd nu försiktigt fast de två slad¬ 
darna på kretskortskontakt 1 och 3 
från höger räknat (se fig). OBS det är 
viktigt att lödningarna inte blir klum¬ 
piga eller att de flyter ut på kretskorts- 
kontakten. 

De andra ändarna av sladdarna lö¬ 
der du fast i tryckkontakten som du se¬ 
dan skruvar fast i egna lådhalvan, men 
inte hårdare än att det går att sätta 
ihop monitorn igen. 

Sätt sedan kretskortet på sin rätta 
plats och skruva ihop maskinkods mo¬ 
nitorn. 

Skruva sedan åt tryckkontakten yt¬ 
terligare med en skiftnyckel. 

Sedan är det bara att sätta igång 
med att programmera, utan att vara 
orolig om datorn dyker. 

Morgan Gunnarsson 



skrivs med . (ex.:TAX.) 
skrivs med A (ex.:ASLA) 
skrivs med # (ex.:LDA#) 
skrivs med Z (ex.:STAZ) 
skrivs med + (ex.:STA + ) 
skrivs med $ (ex.:LDAS) 
skrivs med X (ex.:STAX) 
skrivs med Y (ex.:LDAY) 
skrivs med 1 (ex.:LDAl) 
skrivs med 2 (ex.:STA2) 
skrivs med 1 (ex.:JMPl) 


RUN. Ditt sparade maskinprogram 
laddas med LOAD och startas med 
RUN. 

Som jag inledningsvis nämnde, kon¬ 
kurrerar detta program inte med plug- 
in-kassetterna, men är en ”billig” va¬ 
riant som är värd att pröva. Lycka till 
och häng med i ”assemblerskolan”. 

Ingvar Wihlborg 

Finner Du det jobbigt att skriva in 
alla data-satser etc., finns program¬ 
met att köpa. Priset är 65 kronor, 
inklusive kassett och porto. 
Programmet säljs av: 

INGVAR WIHLBORG 
(Tfn: 0300-119 80) 

PG 47 93 77 6-8 


monitorn 
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GRATISANNONSER 



VIC-64 5 300:— + PORTO 

Dator, bandsp, joystick. Böcker: Basic 
+ avan. prg. på VIC-64, Program, 
handb. 1, 2, 3. Program: Comal Ka¬ 
lender Sim. Basic spel: Frogger, Othel¬ 
lo, Fort Apocalypse mfl, 30 datatid¬ 
ningar (Nypris 7 000:—) GARANTI 
t o m sept -84. Tel. 011-14 41 12. 

BANDSPELARE 

till VIC köpes billigt i Göteborg. Tel. 
031-29 01 32 (Patrik). 

VIC-64 PROGRAM 

Spel-, äventyrs-, nytto-program bytes, 
säljes. Tel. 031/29 01 32 (Patrik). 

VIC-64 

Spel bytes ev. säljes ring 031-49 37 60, 
Fredrik. 

TILLBEHÖR VIC-20 

Expansionsenhet VIC 1020 med 6 por¬ 
tar. Lite använd 1 400:—. Super ex- 
pander med manual 400:— OBS! säl¬ 
jes. Victor Nilsson, Järfälla 08- 
760 65 32. 

VIC 20 SÄLJES 

VIC 20 + bandspelare + joystick + 2 


st plugginspel + div. spel, nypris ca 
3 500 kr nu 2 500 kr. Tel. efter kl 
18.00,0303-29 148. 

VIC-1907 Superlander 100:—, 0531- 
105 40, Johan. 

** VIC 1515 PRINTER ** 

Fullgott skick. 1 250:— (Har kostat 
3 250:—). Tel. 031-29 66 18 Göteborg. 

VIC-64 SPEL SÄLJES 

Gridrunner (cartridge) 150:— 3D time 
trek(kass) 80:—.Tel. 019-911 14. 

SÄLJES EV. BYTES 

VIC-20 plug-in, Jelly Monster och Su¬ 
per lander. Skriv till: Dean Tosic, 
Lokv. 37, 260 33 Påarp. 

SÄIJES TILL 64: AN 

2 st k. spel: Scramble 64 och Hovver 
Bovver. Båda för 90 kr st. Ring mellan 
18—20. Tel. 031-31 47 65 fråga efter 
Jan. 

VIC-TIPS 

Ge eller få tips om de många möjighe- 


terna Du har med VIC 20 eller VIC 64. 
För amatörer och proffs. Helt gratis. 
Bifoga svarsporto R. Hall Grönegatan 
34, 211 27 Malmö. 

VIC 64 PROGRAM 

Skicka namn och adress så skickar jag 
information om mina program. OBS. 
Du måste ha ”Simon’s Basic” för de 
flesta programmen. Johan Harrysson, 
Båtvägen 5, 590 61 Vreta Koster 

**V-65, STYRKTIPS OCH LOTTO** 

Bra BASIC-program för rankning av 
travhästar. Bygger på flera års statistik 
och erfarenhet 150:—, Stryktips med 
många avancerade funktioner 90:— 
Lotto 40:— Alla tillsammans 220:—. 
Tel. 018-11 28 75. 

SPEL TILL VIC-20 

Spel säljes/bytes, 5—50 kr/st. Ring 
019-24 56 40. 

64-SPEL SÄLJES OCH BYTES 

Space Action bytes eller säljes för 
200:— Superscramble original säljes 
för 75:—. Tel. 08-67 58 78, Christian. 
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Kommunicera med VIC 64S 


Det moderna sättet att få information 

Kopplar du ihop ett universalmodem och ett teledataprogram 
med din VIC 64S så kan du kommunicera med videotexdata- 
baser via din telefonledning (75/1200 baud). Väljer du ett ter¬ 
minalprogram, kan du med samma modem ”tala” med andra 
VIC 64 ägare eller koppla upp dig mot databassystem som 
kommunicerar med 300/300 baud (1 baud = 1/10 tecken per 
sekund). 

Med universalmodement kan du alltså välja vilken typ av 
kommunikation du vill ha. Med videotexprogrammet (Teleda- 
ta 64) inkopplat kan du tex koppla upp Datavision, Videodata, 
Prestel, Telebild, Postel, Micronet osv, osv. 

I dessa baser kan du finna massor av information. Köpa en 
skjorta, sälja en bil, beställa campingplats, skicka meddelan¬ 
den m m, m m... 



Box 1063. 436 00 Askim/Göteborg. Tei 031/28 97 90 


- rtl foretag i D atl lromcgruppi 


Några databaser: 

Viewdata AB 
Dataviston 


Telebild 

Videotex 

telematris 

Wettergrens 


08-743 06 65 
018-901 00 
08-13 58 00 

08-99 44 30 
031-11 21 34 


Kommunikation är en del av vad VIC 64S kan. I 
foldern "VIC till vardags” får du mer information 
om vad VIC kan göra för dig i vardagslivet. 


Jag vill ha foldern ”VIC till vardags” 

Namn_ 

Adress_ 

Postnr/Ort_ 

Sänd in kupongen till handic electronic. Box 1063, 436 00 Askim. 
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